view release on metacpan or  search on metacpan

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

			  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
    grep{$_->{content}

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

	
	print Dumper \%symtable if $DEBUG;
	$doc->prune('PPI::Token::Pod');
	$doc->prune('PPI::Token::Comment');
	
	
	for (@{$doc->find('PPI::Token::Whitespace')}){
	    $_->{content} = ' ' if $_->{content} eq $/;
	}

	$doc->save($outputfile);
}

sub find {
    $symtable{shift()};
}

1;

__END__