File Coverage

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

Criterion	Covered	Total	%
statement	15	26	57.6
branch	0	4	0.0
condition			n/a
subroutine	5	9	55.5
pod	1	1	100.0
total	21	40	52.5

package POE::Component::WWW::GetPageTitle;

use warnings;
use strict;

our $VERSION = '1.001004'; # VERSION

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

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

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

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

sub _process_request {
    my ( $self, $in_ref ) = @_;
    my $t = $self->{obj};
    $t->get_title( $in_ref->{page} );

    if ( my $error =  $t->error ) {
        $in_ref->{error} = $error;
    }
    else {
        $in_ref->{title} = $t->title;
    }

    return;
}

1;
__END__