| # | Line 64 | Line 64 | sub new { | |
|---|---|---|
| 64 | die $@ if $@; | |
| 65 | $self->{testobj}=$module->_new($self, $fullmodule); | |
| 66 | ||
| 67 | + | # make sure the temparea is cleaned |
| 68 | + | use File::Path; |
| 69 | + | rmtree($self->temparea()); |
| 70 | + | |
| 71 | return $self; | |
| 72 | } | |
| 73 | ||
| # | Line 252 | Line 256 | sub testinterface { | |
| 256 | print "Undefined Value Passed Back\n"; | |
| 257 | } | |
| 258 | elsif ( $myreturn=~/HASH/ ) { | |
| 259 | < | print "Hash Ref returned\n"; |
| 259 | > | print "Hash Ref ".ref($myreturn)." returned\n"; |
| 260 | } | |
| 261 | elsif ( $myreturn=~/CODE/ ) { | |
| 262 | print "Code Ref returned\n"; | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |