File: run

package info (click to toggle)
libclipboard-perl 0.13-1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 264 kB
  • ctags: 130
  • sloc: perl: 1,260; sh: 43; makefile: 10
file content (13 lines) | stat: -rwxr-xr-x 472 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/usr/bin/perl -w
# 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 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"