lib/autodie/t/lib/OtherTypes.pm

   1 package OtherTypes;
   2 no warnings;
   3
   4 our $foo = 23;
   5 our @foo = "bar";
   6 our %foo = (mouse => "trap");
   7 open foo, "<", $0;
   8
   9 format foo =
  10 foo
  11 .
  12
  13 BEGIN {
  14     $main::pvio = *foo{IO};
  15     $main::pvfm = *foo{FORMAT};
  16 }
  17
  18 sub foo { 1 }
  19
  20 use autodie 'foo';
  21
  22 1;