Help for this page

Select Code to Download


  1. or download this
    sub new {
        my ($class)=@_;
    ...
        return $self->{_roundnum};
    }
    ################################
    
  2. or download this
    use round;
    my $test=new round{roundnum=>1}
    $testval=$test->roundnum;
    print $testval