/usr/lib/slimrat/Clipboard.pm is in slimrat 1.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 | package Clipboard;
use Spiffy -Base;
our $VERSION = '0.09';
our $driver;
sub copy { $driver->copy(@_); }
sub cut { goto © }
sub paste { $driver->paste(@_); }
sub bind_os() { my $driver = shift; map { $_ => $driver } @_; }
sub find_driver {
my $os = shift;
my %drivers = (
# list stolen from Module::Build, with some modifications (for
# example, cygwin doesn't count as Unix here, because it will
# use the Win32 clipboard.)
bind_os(Xclip => qw(linux bsd$ aix bsdos darwin dec_osf dgux
dynixptx hpux irix linux machten next os2 sco_sv solaris sunos
svr4 svr5 unicos unicosmk)),
bind_os(Pb => qw(macos darwin)),
bind_os(Win32 => qw(mswin ^win cygwin)),
);
$os =~ /$_/i && return $drivers{$_} for keys %drivers;
die "The $os system is not yet supported by Clipboard.pm. Please email rking\@sharpsaw.org and tell him about this.\n";
}
sub import {
my $drv = Clipboard->find_driver($^O);
require "Clipboard/$drv.pm";
$driver = "Clipboard::$drv";
}
1;
=head1 NAME
Clipboard - Copy and paste with any OS
=head1 SYNOPSIS
use Clipboard;
print Clipboard->paste;
Clipboard->copy('foo');
# Clipboard->cut() is an alias for copy(). copy() is the preferred
# method, because we're not really "cutting" anything.
Also see the scripts:
clipaccumulate
clipbrowse
clipedit
clipfilter
clipjoin
=head1 DESCRIPTION
Who doesn't remember the first time they learned to copy and paste, and
generated an exponentially growing text document? Yes, that's right,
clipboards are magical.
With Clipboard.pm, this magic is now trivial to access,
cross-platformly, from your Perl code.
=head1 STATUS
Seems to be working well for Linux, OSX, *BSD, and Windows. I use it
every day on Linux, so I think I've got most of the details hammered out
(X selections are kind of weird). Please let me know if you encounter
any problems in your setup.
=head1 AUTHOR
Ryan King <rking@sharpsaw.org>
=head1 COPYRIGHT
Copyright (c) 2005. Ryan King. All rights reserved.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
See http://www.perl.com/perl/misc/Artistic.html
=cut
|