Help for this page

Select Code to Download


  1. or download this
    use Data::Dump qw/ dd /;
dd( my $f = Foo->new(qw/ bar 1 /) );
...
__END__
bless({ bar => 1 }, "Foo")
Can't locate object method "bar" via package "Foo" at - line 3.
  2. or download this
    use Data::Dump qw/ dd /;
dd( my $f = Foo->new(qw/ bar 1 /) );
$f->bar;
...
__END__
bless({ bar => 1 }, "Foo")
Can't locate object method "bar" via package "Foo" at - line 3.
  3. or download this
    use Data::Dump qw/ dd /;
dd( my $f = Foo->new(qw/ bar 1 /) );
$f->bar;
BEGIN{package Foo; use Moo; has( qw/ bar is rw / ); }
__END__
bless({ bar => 1 }, "Foo")
  4. or download this
    {package Foo; use Moo; has( qw/ bar is rw / ); }
use Data::Dump qw/ dd /;
...
$f->bar;
__END__
bless({ bar => 1 }, "Foo")