Help for this page

Select Code to Download


  1. or download this
    use Modern::Perl;

package Testing;
...
no Moose;
__PACKAGE__->meta->make_immutable;
1;
  2. or download this
    use Modern::Perl;
use Testing;
use Data::Dump qw/dump/;

my $object = Testing->new;
say dump($object);
  3. or download this
    bless({ thing => bless(do{\(my $o = 39557684)}, "Bit::Vector") }, "Tes
+ting")
  4. or download this
    my $object = Testing->new({thing => undef});