Help for this page

Select Code to Download


  1. or download this
    use Foo;

my ($bar) =  @ARGV;
my $foo = Foo->new( bar => $bar );
  2. or download this
    package Foo;
use Moose;

has bar => (is => "ro", default => "whatever");
  3. or download this
    package Foo;
use Moose;
...

  $this->bar("whatever") unless defined $args->{bar};
}