File Coverage

blib/lib/Mojolicious/Plugin/AssetPack/Pipe/ExportToDirectory.pm

Criterion	Covered	Total	%
statement	18	39	46.1
branch	0	6	0.0
condition	0	3	0.0
subroutine	6	8	75.0
pod	1	1	100.0
total	25	57	43.8

package Mojolicious::Plugin::AssetPack::Pipe::ExportToDirectory;
$Mojolicious::Plugin::AssetPack::Pipe::ExportToDirectory::VERSION = '0.001003';
use Mojo::Base 'Mojolicious::Plugin::AssetPack::Pipe';
use Mojo::File;

use File::Basename 'dirname';
use File::Path 'make_path';
use File::Spec;

use PerlIO::gzip;

has 'export_dir' => sub { $ENV{MOJO_ASSETPACK_EXPORT_DIRECTORY} || '' };
has 'use_checksum_subdir' => 1;
has 'store_gzip_variant' => 0;


sub process {
	my ( $self, $assets ) = @_;

	my $dir = $self->export_dir;
	unless ( defined $dir and -e -w -d $dir ) {
		die "Missing or inaccesable export base directory '$dir'";
	}

	$assets->each(
		sub {
			my $asset = shift;

			my ( $file, $path ) = ( '',  '' );
			if ( $self->use_checksum_subdir ) {
				$file = sprintf( "%s.%s", $asset->name, $asset->format );
				$path = File::Spec->catfile( $dir, $asset->checksum );
			}
			else {
				$file = sprintf( "%s-%s.%s", $asset->name, $asset->checksum, $asset->format );
				$path = $dir;
			}

			my $p = Mojo::File->new($path);
			$p->make_path;
			$p->child($file)->spurt( $asset->content );

			if ( $self->store_gzip_variant ) {
				$file .= '.gz';
				my $p_gz = $p->child($file);
				my $fh = $p_gz->open('>:gzip(gzip)');
				print $fh $asset->content;
				$fh->close;
			}
		}
	);
} ## end sub process

1;

__END__