95 lines
2.4 KiB
Perl
95 lines
2.4 KiB
Perl
|
package Win32::Clipboard;
|
||
|
|
#######################################################################
|
||
|
|
#
|
||
|
|
# Win32::Clipboard - Perl Module for Windows Clipboard Interaction
|
||
|
|
# ^^^^^^^^^^^^^^^^
|
||
|
|
# Version: 0.03 (23 Apr 1997)
|
||
|
|
#
|
||
|
|
#######################################################################
|
||
|
|
|
||
|
|
require Exporter; # to export the constants to the main:: space
|
||
|
|
require DynaLoader; # to dynuhlode the module.
|
||
|
|
|
||
|
|
@ISA = qw( Exporter DynaLoader );
|
||
|
|
|
||
|
|
#######################################################################
|
||
|
|
# This AUTOLOAD is used to 'autoload' constants from the constant()
|
||
|
|
# XS function. If a constant is not found then control is passed
|
||
|
|
# to the AUTOLOAD in AutoLoader.
|
||
|
|
#
|
||
|
|
|
||
|
|
sub AUTOLOAD {
|
||
|
|
my($constname);
|
||
|
|
($constname = $AUTOLOAD) =~ s/.*:://;
|
||
|
|
#reset $! to zero to reset any current errors.
|
||
|
|
$!=0;
|
||
|
|
my $val = constant($constname, @_ ? $_[0] : 0);
|
||
|
|
if ($! != 0) {
|
||
|
|
|
||
|
|
# [dada] This results in an ugly Autoloader error
|
||
|
|
|
||
|
|
#if ($! =~ /Invalid/) {
|
||
|
|
# $AutoLoader::AUTOLOAD = $AUTOLOAD;
|
||
|
|
# goto &AutoLoader::AUTOLOAD;
|
||
|
|
#} else {
|
||
|
|
|
||
|
|
# [dada] ... I prefer this one :)
|
||
|
|
|
||
|
|
($pack, $file, $line) = caller;
|
||
|
|
undef $pack; # [dada] and get rid of "used only once" warning...
|
||
|
|
die "Win32::Clipboard::$constname is not defined, used at $file line $line.";
|
||
|
|
|
||
|
|
#}
|
||
|
|
}
|
||
|
|
eval "sub $AUTOLOAD { $val }";
|
||
|
|
goto &$AUTOLOAD;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
#######################################################################
|
||
|
|
# STATIC OBJECT PROPERTIES
|
||
|
|
#
|
||
|
|
$VERSION = "0.03";
|
||
|
|
|
||
|
|
#######################################################################
|
||
|
|
# FUNCTIONS
|
||
|
|
#
|
||
|
|
|
||
|
|
sub new {
|
||
|
|
my($class, $value) = @_;
|
||
|
|
my $self = "I'm the Clipboard!";
|
||
|
|
Win32::Clipboard::Set($value) if defined($value);
|
||
|
|
return bless(\$self);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub DESTROY {
|
||
|
|
my($self) = @_;
|
||
|
|
undef $self;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub Version {
|
||
|
|
return $VERSION;
|
||
|
|
}
|
||
|
|
|
||
|
|
#######################################################################
|
||
|
|
# dynamically load in the Clipboard.pll module.
|
||
|
|
#
|
||
|
|
|
||
|
|
bootstrap Win32::Clipboard;
|
||
|
|
|
||
|
|
# Preloaded methods go here.
|
||
|
|
|
||
|
|
sub main::Win32::Clipboard {
|
||
|
|
my($value) = @_;
|
||
|
|
my $self={};
|
||
|
|
my $result = Win32::Clipboard::Set($value) if defined($value);
|
||
|
|
return bless($self, "Win32::Clipboard");
|
||
|
|
}
|
||
|
|
|
||
|
|
#Currently Autoloading is not implemented in Perl for win32
|
||
|
|
# Autoload methods go after __END__, and are processed by the autosplit program.
|
||
|
|
|
||
|
|
1;
|
||
|
|
__END__
|
||
|
|
|