Help for this page

Select Code to Download


  1. or download this
    sub the_problem {
        my $self = shift;
        $self->{_the_problem} = shift if (@_); # sets _the_problem to the 
    +value we've been passed *if* we've been passed a value
        $self->{_the_problem}; # returns the current value of _the_problem
    }
    
  2. or download this
    use strict;
    use A::B::C; #use your modules.  Pay attention to btrott's advice abov
    +e on Exporter etc.
    ...
    $foo->the_problem("argle bargle"); # $foo->{_the_problem} now eq 'argl
    +e bargle'
    
    print $foo->the_problem();     # prints "argle bargle"