if($object->method) { .. } else { my $error = $object->error(); }
####
sub foo {
my($self,$arg) = @_;
if( !defined($arg) ) {
$self->error("[mymodule::foo] Required Argument, ARG, not supplied.\n");
return(undef);
} else {
return(1);
}
}
##
##
sub error {
my $self = shift;
if( defined($_[0]) ) {
$self->{'Error'} = $_[0];
if( $self->raise_error() ) {
warn("$_[0]\n");
}
if( $self->die_error() ) {
die("$_[0]\n");
}
}
return($self->{'Error'});
}
##
##
sub raise_error {
my $self = shift;
$self->{'Raise'} = $_[0] if( defined($_[0]) );
return($self->{'Raise'});
}