Help for this page

Select Code to Download


  1. or download this
    my $pkg = 'Foo';
my $foo = do { local $/; eval "<${pkg}::DATA>" };
  2. or download this
    my $pkg     = 'Foo';
my $data_fh = do { no strict 'refs'; *{"${pkg}::DATA"} };
my $foo     = do { local $/; <$data_fh> };
  3. or download this
    my $pkg = 'Foo';
my $data_fh; { no strict 'refs'; $data_fh = *{"${pkg}::DATA"}; }
my $foo;     { local $/; $foo = <$data_fh>; }