File Coverage

blib/lib/Enbld/HTML.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	0	3	0.0
total	31	34	91.1

package Enbld::HTML;

use strict;
use warnings;

sub new {
    my ( $class, $html ) = @_;

    my $self = {
        html    =>  $html,
    };

    return bless $self, $class;
}

sub parse_version {
    my ( $self, $parser, $version_form ) = @_;

    my $filenames = $self->extract( $parser );

    my %list;

    foreach my $filename ( @{ $filenames } ) {
        while ( $filename =~ /$version_form/g ) {
            $list{$&}++;
        }
    }

    return unless ( keys %list );

    my @versions = keys %list;

    return \@versions;
}

sub extract {
    my ( $self, $parser ) = @_;

    my @candidate;
    while( $self->{html} =~ /$parser/g ) {
        push @candidate, $&;
    }

    return \@candidate;
}

1;