view release on metacpan or  search on metacpan

setup/import_export/perl.pl  view on Meta::CPAN

40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
sub import_pod
{
my ($self, $file)  = @_ ;
 
my ($base_name, $path, $extension) = File::Basename::fileparse($file, ('\..*')) ;
my $file_name = $base_name . $extension ;
 
my ($base64_data, $header, $footer) = get_base64_data($file_name) ;
 
my $decoded_base64 = MIME::Base64::decode($base64_data);
my $self_to_resurect =  decompress($decoded_base64) ;
 
my $VAR1 ;
my $resurected_self =  eval $self_to_resurect ;
die $@ if $@ ;
 
return($resurected_self, $file, {HEADER => $header, FOOTER => $footer}) ;
}
 
sub get_base64_data
{