| # | Line 75 | Line 75 | sub tool { | |
|---|---|---|
| 75 | sub toolsearcher { | |
| 76 | my $self=shift; | |
| 77 | if ( @_ ) { | |
| 78 | < | $self->{toolboxsearcher}=shift; |
| 78 | > | my $searcher=shift; |
| 79 | > | if ( ! defined $searcher ) { |
| 80 | > | $self->error("Undefined Value passed as a Searcher". |
| 81 | > | " in ToolDoc::toolsearcher"); |
| 82 | > | } |
| 83 | > | $self->{toolboxsearcher}=$searcher; |
| 84 | } | |
| 85 | return $self->{toolboxsearcher}; | |
| 86 | } | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |