File Coverage

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

Criterion	Covered	Total	%
statement	15	28	53.5
branch	0	6	0.0
condition			n/a
subroutine	5	9	55.5
pod	1	1	100.0
total	21	44	47.7

package POE::Component::WWW::DoctypeGrabber;

use warnings;
use strict;

our $VERSION = '1.001004'; # VERSION

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

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

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

sub _prepare_wheel {
    my $self = shift;
    $self->{obj} = WWW::DoctypeGrabber->new(
        %{ $self->{obj_args} || {} },
    );
}

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

    my $grabber = $self->{obj};
    if ( exists $in_ref->{raw} ) {
        $grabber->raw( $in_ref->{raw} );
    }
    my $grab = $grabber->grab( $in_ref->{page} );
    if ( $grab ) {
        $in_ref->{result} = $grab;
    }
    else {
        $in_ref->{error} = $grabber->error;
    }
}

1;
__END__