File Coverage

lib/App/ExtractLinks.pm

Criterion	Covered	Total	%
statement	10	19	52.6
branch	0	2	0.0
condition			n/a
subroutine	4	6	66.6
pod	0	2	0.0
total	14	29	48.2

package App::ExtractLinks;

# ABSTRACT: extract href's in HTML docs to stdout

use strict;
use warnings;

use HTML::Parser;

our $VERSION;

BEGIN {
    $VERSION = '0.0.2';
}

my $parser = HTML::Parser->new(api_version => 3);

sub handler {
    my $attr = shift;

    foreach my $key (keys %$attr) {
        my $val = %$attr{$key};

        if ($key eq 'href') {
            print "$val\n";
        }
    }
}

sub run {
    $parser->handler(start => \&handler, 'attr');

    while (<>) {
       $parser->parse($_);
    }

    $parser->eof;
}

1;

=head1 NAME

ExtractLinks

=head1 DESCRIPTION

Extract hrefs from HTML documents to stdout.