![]() |
|
for (0..$#tasks) { $ryddler[$_] = Ryddler::Clone->new( job => $task[$_] ) || die "Try +ing"; }
#!/usr/bin/perl -w use strict; package foo; use vars qw($var); $var = 'FOO'; print "package foo: $var\n"; package bar; use vars qw($var); $var = 'BAR'; print "package bar: $var\n"; package main; { no strict 'refs'; # *cough cough* my $pack = 'foo'; my $var = 'var'; print "(main) package foo: ${$pack . '::' . $var}\n"; $pack = 'bar'; print "(main) package bar: ${$pack . '::' . $var}\n"; }