File Coverage

blib/lib/POE/Component/WWW/HTMLTagAttributeCounter.pm

Criterion	Covered	Total	%
statement	15	25	60.0
branch	0	4	0.0
condition	0	2	0.0
subroutine	5	9	55.5
pod	1	1	100.0
total	21	41	51.2

package POE::Component::WWW::HTMLTagAttributeCounter;

use warnings;
use strict;

our $VERSION = '1.001004'; # VERSION

use POE;
use base 'POE::Component::NonBlockingWrapper::Base';
use WWW::HTMLTagAttributeCounter;

sub _methods_define {
    return ( count => '_wheel_entry' );
}

sub count {
    $poe_kernel->post( shift->{session_id} => count => @_ );
}

sub _prepare_wheel {
    my $self = shift;
    $self->{obj} = WWW::HTMLTagAttributeCounter->new(
        $self->{ua} ? $self->{ua} : ()
    );
}

sub _process_request {
    my ( $self, $in_ref ) = @_;

    $in_ref->{type} ||= 'tag';
    my $c = $self->{obj};
    if ( my $result = $c->count( @$in_ref{qw/where what type/} ) ) {
        @$in_ref{ qw/result result_readable/ } = ( $result, "$c" );
    }
    else {
        $in_ref->{error} = $c->error;
    }

}

1;
__END__