Select Code to Download

if($object->method) { .. } else { my $error = $object->error(); }

sub foo {

...
         return(1);
         }
}

sub error {

...

 return($self->{'Error'});
}

sub raise_error {

...
 $self->{'Raise'} = $_[0] if( defined($_[0]) );
 return($self->{'Raise'});
}