File Coverage

blib/lib/Filter/Unpound.pm

Criterion	Covered	Total	%
statement	6	8	75.0
branch			n/a
condition			n/a
subroutine	2	4	50.0
pod	0	2	0.0
total	8	14	57.1

package Filter::Unpound;
# Simplest version, just this line:
# use Filter::Simple sub { s/^\s*#!#//gsm; };
use strict;

my @keywords;
my $CmtRE;
my ($code,$all);
our $VERSION=1.1;

sub import {
    my $thispack=shift;
    @keywords=(grep !/[^A-Za-z0-9_]/, @_); # Only single words, no metachars, ok?
    $CmtRE=join q(|),@keywords;
    # Only filter if things are specified, otherwise we'll remove way too
    # many comments.
    if ($CmtRE) {
	$code=sub {
	    # Shorthand for print
	    s/#[A-Za-z0-9_#]*\b(?:${CmtRE})\b[A-Za-z0-9_#]*>\s+(.*)$/print <
	    s/#[A-Za-z0-9_#]*\b(?:${CmtRE})\b[A-Za-z0-9_#]*#\s+//g;
	};

	$all=sub {
	    s/^(?:${CmtRE})$//gms;
	    s/^\s*;\s*(?:(?:my\s+)?\$\w+\s*=\s*)?<<\s*'(?:$CmtRE)'\s*(?:#.*)?$//gms;
	}
    }
    else {
	$code=sub { ; };
	$all=sub { ; };
    }
}
# Allow access to keywords, commentre... read-only, you shouldn't try to set.
sub keywords () { return @keywords; }
sub CmtRE () { return $CmtRE; }

use Filter::Simple;

# As I discovered with pain, since I was working on a v5.8
# installation, Filter::Simple has a bug in FILTER_ONLY in v5.8, but
# not in v5.10 (I don't know about v5.9).  So versions below v5.10
# will get a plain FILTER.

if ($] >= 5.010) {
    FILTER_ONLY
	code => sub { &$code },
	all => sub { &$all };
}
else {
    FILTER {
	&$code;
	&$all;
    }
}
1;
__END__