Help for this page

Select Code to Download

Select or download this

sub new {                  # @_  = ('Music', 5)
    my $class = shift;     # @_  = (5)
    my $number1 = @_;      # $number1 = 1  - array in scalar context r
+eturns it's size! 
    my $number2 = &add_numbers; #  here you call sub add_numbers!

Select or download this

sub add_numbers {         # @_    = (5)
    my $self = shift;     # $self =  5 !!!
    my $value = $self->{"Number_one"} ;  # ERROR!