view release on metacpan or  search on metacpan

lib/Acme/VarMess.pm  view on Meta::CPAN

20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
my %invar = map{$_=>1} qw(
                          VERSION
                          EXPORT
                          EXPORT_OK
                          ),0..9,split//,q(ab`!@#$%^&*()+-={};':",./<>?|\\[]);
 
sub dont_blow {
    %invar = map{$_=>1} @_;
}
 
sub blow($$;$) {
    my ($src, $outputfile) = @_;
    my $doc;
    if(ref $src){
        $doc = PPI::Document->new($$src);
    }
    else {
        $doc = PPI::Document->load($src);
    }
 
#print Dumper