Select Code to Download

Select or download this

package Demo;

...
sub check {
    $self->test(());
}

Select or download this

$ perl -c pm_1201774_moose_demo.pm
Global symbol "$self" requires explicit package name (did you forget t
+o declare "my $self"?) at pm_1201774_moose_demo.pm line 8.
pm_1201774_moose_demo.pm had compilation errors.

Select or download this

sub check {
    my ($self) = @_;

    $self->test(());
}

Select or download this

$ perl -c pm_1201774_moose_demo.pm
pm_1201774_moose_demo.pm syntax OK

Select or download this

package Demo;

...
package main;

Demo::->new->check;

Select or download this

$ perl -c pm_1201774_moose_demo.pm
pm_1201774_moose_demo.pm syntax OK
$ perl pm_1201774_moose_demo.pm
Can't use an undefined value as an ARRAY reference at pm_1201774_moose
+_demo.pm line 12.

Select or download this
```
$self->test([]);
```

Select or download this

$ perl -c pm_1201774_moose_demo.pm
pm_1201774_moose_demo.pm syntax OK
$ perl pm_1201774_moose_demo.pm
$

Select or download this

... Fields ... isa => 'HashRef' ...
$self->Fields({});

Select or download this
```
$Cnt = scalar $self->Fields;
```

Select or download this

$ perl -E 'my $x = {a=>1,b=>2}; say scalar $x; say scalar keys %$x'
HASH(0x7ffe120040b0)
2

Select or download this

$self->FieldCount = $Cnt;
$self->Changed = -1;

Select or download this

... FieldCount ... isa => 'Num' ...
... Changed    ... isa => 'Boolean' ...

Select or download this

... Can't modify non-lvalue subroutine call at ...

Select or download this

$ perl -E 'my $x = -1; say $x ? "true" : "false"'
true