File Coverage

blib/lib/CSS/SpriteMaker/Simple.pm

Criterion	Covered	Total	%
statement	24	58	41.3
branch	0	8	0.0
condition	0	6	0.0
subroutine	8	12	66.6
pod	2	2	100.0
total	34	86	39.5

package CSS::SpriteMaker::Simple;

our $VERSION = '1.001001'; # VERSION

use Mojo::Base -base;

use Carp                  qw/croak          /;
use File::Copy            qw/copy           /;
use File::Find            qw/find           /;
use File::Temp            qw/tempdir        /;
use File::Spec::Functions qw/catdir  catfile/;
use Mojo::Util            qw/b64_encode/;
use Mojolicious;

has 'css';

sub spritify {
    my $self = shift;
    my @ignore = @{ ref $_[-1] ? pop : [] };
    @_ or croak 'Missing list of paths to search for pictures';
    my $asset_dir = $self->_gather_pics( \@ignore, @_ );

    # Set up the app
    my $s = Mojolicious->new;
    $s->mode('production');
    $s->log->level('fatal'); # disable 'info' message from AssetPack
    $s->static->paths([ catdir $asset_dir, 'public' ]);

    # AssetPack plugin will generate the CSS and the Sprite image
    $s->plugin('AssetPack');
    $s->asset( 'app.css' => 'sprites:///sprite' );

    # Fetch CSS code and embed the sprite as base64 in it
    my $css = $s->static->file( $s->asset->get('app.css') )->slurp;
    my ( $sprite_filename )
    = $css =~ /\.sprite\{background:url\(  (sprite-\w+\.png)  \)/x;

    my $sprite = $s->static->file( catfile 'packed', $sprite_filename )->slurp;
    $sprite = b64_encode $sprite, '';

    $css =~ s{\Q$sprite_filename\E}{data:image/png;base64,$sprite};

    # Modify pic classnames to avoid potential clashes
    $css =~ s{\.sprite\.(?=[\w-]+)}{.sprite.s-}g;
    $self->css( $css );

    $self;
}

sub spurt {
    my ( $self, $file ) = @_;

    Mojo::Util::spurt $self->css => $file;

    $self;
}

sub _gather_pics {
    my ( $self, $ignore, @locations ) = @_;

    my %ignore = map +( $_ => 1 ), @$ignore;
    my @pics = grep -f, @locations;
    find sub {
        return unless -f and /\.(png|gif|jpg|jpeg)$/ and not $ignore{$_};
        push @pics, $File::Find::name;
    }, grep -d, @locations;

    my $dir = tempdir CLEANUP => 1;
    mkdir catdir $dir, 'public';
    my $sprite_dir = catdir $dir, 'public', 'sprite';
    mkdir $sprite_dir
        or croak "Failed to create sprite dir [$sprite_dir]: $!";

    copy $_ => $sprite_dir for @pics;

    return $dir;
}

1;

__END__