view release on metacpan or  search on metacpan

at/run  view on Meta::CPAN

#!/usr/bin/perl
# Basic acceptance test.  I didn't want to put anything that messes with the
# real clipboard into t/ in case it ends up inadvertently messing up someones
# selection, somehow.
use strict;
use warnings;

use lib 'lib';
use Clipboard;
my $save = Clipboard->paste;
print "Original: ", Clipboard->paste, "\n";
Clipboard->copy('looks like Clipboard->copy works');
print "     Now: ", Clipboard->paste, "\n";
Clipboard->copy($save);
print "(Restored original clipboard)\n"