Current Path :
/
usr
/
lib64
/
perl5
/
vendor_perl
/
WWW
/
Curl
/
Or
Select Your Path :
Upload File :
New :
File
Dir
//usr/lib64/perl5/vendor_perl/WWW/Curl/Form.pm
package WWW::Curl::Form; use strict; use warnings; use Carp; our $VERSION = '4.15'; use WWW::Curl (); use Exporter (); our @ISA = qw(Exporter); our @EXPORT = qw( CURLFORM_FILE CURLFORM_COPYNAME CURLFORM_CONTENTTYPE ); sub AUTOLOAD { our $AUTOLOAD; # This AUTOLOAD is used to 'autoload' constants from the constant() # XS function. ( my $constname = $AUTOLOAD ) =~ s/.*:://; my $value = constant( $constname ); if($!) { croak("Undefined subroutine &$AUTOLOAD caclled"); } { no strict 'refs'; *{$AUTOLOAD} = sub { $value }; } return $value; } 1; __END__
