Help for this page

Select Code to Download


  1. or download this
    ScoreBoard.pm
--------------------
...

my $sb = ScoreBoard->new;
print "Game has not started yet\n" if !$sb->hasGameStarted;
  2. 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 ...]
  3. or download this
    has 'started' => (
        traits          => [qw/Bool Protected/],
...
        my $self = shift;
        return defined $self->started;
}
  4. or download this
    $ ./ScoreBoard-test2.pl 
Game has not started yet