Select Code to Download

Select or download this

12:24 >p5u v Capture::Tiny
Capture::Tiny
        C:\Perl\Strawberry\strawberry-perl-5.22.0.1-64bit-PDL\perl\ven
+dor\lib\Capture\Tiny.pm: 0.30

Select or download this

12:27 >p5u v Capture::Tiny
Capture::Tiny
        C:\Perl\Strawberry\strawberry-perl-5.22.1.1-64bit-PDL\perl\ven
+dor\lib\Capture\Tiny.pm: undef

12:27 >

Select or download this

use vars qw($VERSION @ISA $AUTOLOAD);
# quotes 'version' for 5.004
$VERSION = eval 'use version; 1' ? 'version'->new('0.35') : '0.35';
$VERSION = eval $VERSION;

Select or download this

our $AUTOLOAD;
our $VERSION;
 
$VERSION = eval 'use version; 1' ? 'version'->new('0.37') : '0.37';
$VERSION = eval $VERSION;

Select or download this

use strict;
use warnings;
...
{
    eval  $_[1];
}

Select or download this

#use vars qw( $VERSION );
our $VERSION;

Select or download this

my $eval =<<'END_EVAL';
    no strict;
...
    }; 
    $VERSION
END_EVAL