@_ > 2 && return $_[0]->SUPER::add(@_[1..$#_]);

##</code><code>##

sub add {
    # check if the Big Boss is calling us...
    if( (caller(1))[3] =~ /^SomeData::/) {
        # we feel guilty, so let's hide
	return shift->SUPER::add(@_);
    }
    # ...back to our scheduled job
    my($self, $value) = @_;
    die "not a number" unless $value =~ /^\d+$/;
    $$self += $value;
}

##</code><code>##

add($duration)

##</code><code>##

add(duration => $duration)

##</code><code>##

return $self->SUPER::add(duration=>$duration);