- or download this
ScoreBoard.pm
--------------------
...
my $sb = ScoreBoard->new;
print "Game has not started yet\n" if !$sb->hasGameStarted;
- or download this
$ ./ScoreBoard-test2.pl
Attribute started is protected at /opt/local/lib/perl5/site_perl/5.12.
+3/MooseX/Privacy/Meta/Attribute/Protected.pm line 13.
[snip ...]
- or download this
has 'started' => (
traits => [qw/Bool Protected/],
...
my $self = shift;
return defined $self->started;
}
- or download this
$ ./ScoreBoard-test2.pl
Game has not started yet