File Coverage

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

Criterion	Covered	Total	%
statement	18	38	47.3
branch	0	20	0.0
condition	0	6	0.0
subroutine	6	9	66.6
pod	1	1	100.0
total	25	74	33.7

package POE::Component::CSS::Minifier;

use warnings;
use strict;

our $VERSION = '1.001004'; # VERSION

use POE;
use base 'POE::Component::NonBlockingWrapper::Base';
use CSS::Minifier;
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 ) = @_;

    eval {
        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;

                CSS::Minifier::minify( input => $in, outfile => $out );
            }
            else {
                $in_ref->{out} = CSS::Minifier::minify( input => $in );
            }
        }
        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;

                    CSS::Minifier::minify(
                        input => $response->decoded_content,
                        outfile => $out,
                    );
                }
                else {
                    $in_ref->{out} = CSS::Minifier::minify( input => $response->decoded_content );
                }
            }
            else {
                $in_ref->{error} = $response->status_line;
            }
        }
        else {
            $in_ref->{out} = CSS::Minifier::minify( input => $in_ref->{in} );
        }
    };
    $@ and $in_ref->{out} = "ERROR: $@";
}

1;
__END__