|
|
}, | }, |
); | ); |
| |
|
# build pods by commenting out |
sub MY::manifypods { |
#sub MY::manifypods { |
my $self = shift; |
# my $self = shift; |
#print STDERR "In manifypods moment\n"; |
# #print STDERR "In manifypods moment\n"; |
if( 1 ) { |
# if( 1 ) { |
return "\nmanifypods : pure_all\n\t$self->{NOECHO}\$(NOOP)\n" |
# return "\nmanifypods : pure_all\n\t$self->{NOECHO}\$(NOOP)\n" |
} |
# } |
else { |
# else { |
return $self->SUPER::manifypods(@_); |
# return $self->SUPER::manifypods(@_); |
} |
# } |
} |
# } |
| |
| |