Help for this page

Select Code to Download


  1. or download this
    @_ > 2 && return $_[0]->SUPER::add(@_[1..$#_]);
    
  2. or download this
    sub add {
        # check if the Big Boss is calling us...
    ...
        die "not a number" unless $value =~ /^\d+$/;
        $$self += $value;
    }
    
  3. or download this
    add($duration)
    
  4. or download this
    add(duration => $duration)
    
  5. or download this
    return $self->SUPER::add(duration=>$duration);