Help for this page

Select Code to Download


  1. or download this
    package SharedBetweenPerls;
use warnings;
...
  return $self->{'roleId'};
}
1;
  2. or download this
    v5.24.pl:-

...
use lib '.';
my ($self) = @_;
print $self->{'roleId'};
  3. or download this
    v5.6.pl:-

...
my $from_5.24 = qx(path-to-perl-5.24 program_for_5.24.pl "$obj"); 
print "Return from function: $from_5.24"; **#Not Working**