File Coverage

blib/lib/POE/Component/JavaScript/Minifier.pm

Criterion	Covered	Total	%
statement	18	36	50.0
branch	0	38	0.0
condition	0	6	0.0
subroutine	6	9	66.6
pod	1	1	100.0
total	25	90	27.7

package POE::Component::JavaScript::Minifier;

use warnings;
use strict;

our $VERSION = '1.001004'; # VERSION

use POE;
use base 'POE::Component::NonBlockingWrapper::Base';
use JavaScript::Minifier 1.10 ();
use LWP::UserAgent;

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

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

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

    if ( defined $in_ref->{infile} ) {
        open my $in, '<', $in_ref->{infile}
            or $in_ref->{error} = "infile error [$!]"
            and return;

        if ( defined $in_ref->{outfile} ) {
            open my $out, '>', $in_ref->{outfile}
                or $in_ref->{error} = "outfile error [$!]"
                and return;

            JavaScript::Minifier::minify(
                input   => $in,
                outfile => $out,
                ( $in_ref->{stripDebug} ? ( $in_ref->{stripDebug} ) : () ),
                ( $in_ref->{copyright}  ? ( $in_ref->{copyright}  ) : () ),
            );
        }
        else {
            $in_ref->{out} = JavaScript::Minifier::minify(
                input => $in,
                ( $in_ref->{stripDebug} ? ( $in_ref->{stripDebug} ) : () ),
                ( $in_ref->{copyright}  ? ( $in_ref->{copyright}  ) : () ),
            );
        }
    }
    elsif ( $in_ref->{uri} ) {
        my $response
        = LWP::UserAgent->new( %{ $self->{ua_args} || {} } )->get( $in_ref->{uri} );

        if ( $response->is_success ) {
            if ( defined $in_ref->{outfile} ) {
                open my $out, '>', $in_ref->{outfile}
                    or $in_ref->{error} = "outfile error [$!]"
                    and return;

                JavaScript::Minifier::minify(
                    input   => $response->decoded_content,
                    outfile => $out,
                    ( $in_ref->{stripDebug} ? ( $in_ref->{stripDebug} ) : () ),
                    ( $in_ref->{copyright}  ? ( $in_ref->{copyright}  ) : () ),
                );
            }
            else {
                $in_ref->{out} = JavaScript::Minifier::minify(
                    input => $response->decoded_content,
                    ( $in_ref->{stripDebug} ? ( $in_ref->{stripDebug} ) : () ),
                    ( $in_ref->{copyright}  ? ( $in_ref->{copyright}  ) : () ),
                );
            }
        }
        else {
            $in_ref->{error} = $response->status_line;
        }
    }
    else {
        $in_ref->{out} = JavaScript::Minifier::minify(
            input => $in_ref->{in},
            ( $in_ref->{stripDebug} ? ( $in_ref->{stripDebug} ) : () ),
            ( $in_ref->{copyright}  ? ( $in_ref->{copyright}  ) : () ),
        );
    }
}


1;
__END__