File Coverage

blib/lib/POE/Component/Syntax/Highlight/HTML.pm

Criterion	Covered	Total	%
statement	20	30	66.6
branch	0	10	0.0
condition	0	3	0.0
subroutine	8	9	88.8
pod	1	1	100.0
total	29	53	54.7

package POE::Component::Syntax::Highlight::HTML;

use warnings;
use strict;

our $VERSION = '1.001004'; # VERSION

use POE;
use base 'POE::Component::NonBlockingWrapper::Base';
use Syntax::Highlight::HTML;
use LWP::UserAgent;

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

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

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

    my $p = Syntax::Highlight::HTML->new(
        ( defined $in_ref->{pre} ? ( pre => $in_ref->{pre} ) : () ),
        ( defined $in_ref->{nnn} ? ( nnn => $in_ref->{nnn} ) : () ),
    );

    if ( $in_ref->{uri} ) {
        $in_ref->{uri} =~ m{^(?:ht|f)tps?://}
            or $in_ref->{uri} = "http://$in_ref->{uri}";

        my $ua = $self->{ua} || LWP::UserAgent->new( timeout => 30, agent => 'Opera 9.5' );
        my $response = $ua->get( $in_ref->{uri} );

        if ( $response->is_success ) {
            $in_ref->{out} = $p->parse( $response->content );
        }
        else {
            $in_ref->{error} = $response->status_line;
        }
    }
    else {
        $in_ref->{out} = $p->parse( $in_ref->{in} );
    }

}

1;
__END__