|
Lines 270-285
Link Here
|
| 270 |
}, |
270 |
}, |
| 271 |
); |
271 |
); |
| 272 |
|
272 |
|
| 273 |
|
273 |
# build pods by commenting out |
| 274 |
sub MY::manifypods { |
274 |
#sub MY::manifypods { |
| 275 |
my $self = shift; |
275 |
# my $self = shift; |
| 276 |
#print STDERR "In manifypods moment\n"; |
276 |
# #print STDERR "In manifypods moment\n"; |
| 277 |
if( 1 ) { |
277 |
# if( 1 ) { |
| 278 |
return "\nmanifypods : pure_all\n\t$self->{NOECHO}\$(NOOP)\n" |
278 |
# return "\nmanifypods : pure_all\n\t$self->{NOECHO}\$(NOOP)\n" |
| 279 |
} |
279 |
# } |
| 280 |
else { |
280 |
# else { |
| 281 |
return $self->SUPER::manifypods(@_); |
281 |
# return $self->SUPER::manifypods(@_); |
| 282 |
} |
282 |
# } |
| 283 |
} |
283 |
# } |
| 284 |
|
284 |
|
| 285 |
|
285 |
|
