File Coverage

blib/lib/HTML/Obliterate.pm

Criterion	Covered	Total	%
statement	25	37	67.5
branch	8	8	100.0
condition			n/a
subroutine	6	18	33.3
pod	14	15	93.3
total	53	78	67.9

package HTML::Obliterate;

use strict;
use warnings;
our $VERSION = '0.3';

use base 'Exporter';
our @EXPORT_OK = qw(
    remove_html       remove_html_from_string
    obliterate_html   kill_html
    erase_html        extinguish_html
    extirpate_html    abolish_html
    doff_html         eliminate_html
    drop_html         purge_html
    strip_html        destroy_html
    defenestrate_html
);

sub remove_html {
    my ($item) = @_;

    if(ref $item eq 'ARRAY') {
        my @copy;

        for my $i (0 .. (@{ $item } -1)) {
            $item->[$i] = remove_html_from_string($item->[$i]) if !defined wantarray;
            $copy[$i]   = remove_html_from_string($item->[$i]) if defined wantarray;
        }

        return $item if !defined wantarray; # seems kind of pointless but its not, hmm a riddle :)
        return \@copy;
    }

    return remove_html_from_string($item);
}

sub remove_html_from_string {
    my($string) = @_;
    $string =~ s{ < \s* [!] \s* [-] \s* [-] \s* .*? [-] \s* [-] \s* > }{}oxms; # comment's w/ posible HTML
    $string =~ s{ < \W* [^>]* > (?: [^<]* >)* }{}oxmsg;
    $string =~ s{ [&][#]? \w+ [;]? }{}oxmsg;
    return $string;
}

sub obliterate_html { goto &HTML::Obliterate::remove_html }
sub kill_html { goto &HTML::Obliterate::remove_html }
sub erase_html { goto &HTML::Obliterate::remove_html }
sub extinguish_html { goto &HTML::Obliterate::remove_html }
sub extirpate_html { goto &HTML::Obliterate::remove_html }
sub abolish_html { goto &HTML::Obliterate::remove_html }
sub doff_html { goto &HTML::Obliterate::remove_html }
sub eliminate_html { goto &HTML::Obliterate::remove_html }
sub drop_html { goto &HTML::Obliterate::remove_html }
sub purge_html { goto &HTML::Obliterate::remove_html }
sub strip_html { goto &HTML::Obliterate::remove_html }
sub destroy_html { goto &HTML::Obliterate::remove_html }
sub defenestrate_html { goto &HTML::Obliterate::remove_html }

1;

__END__