File Coverage

blib/lib/Yeb/Plugin/Static.pm

Criterion	Covered	Total	%
statement	33	34	97.0
branch	7	12	58.3
condition	1	3	33.3
subroutine	12	12	100.0
pod	0	2	0.0
total	53	63	84.1

package Yeb::Plugin::Static;
BEGIN {
  $Yeb::Plugin::Static::AUTHORITY = 'cpan:GETTY';
}
# ABSTRACT: Yeb Plugin for Plack::Middleware::Static
$Yeb::Plugin::Static::VERSION = '0.103';
use Moo;
use Path::Tiny qw( path );
use Plack::Middleware::Static;
use Carp;

has app => ( is => 'ro', required => 1 );
has class => ( is => 'ro', required => 1 );

has middleware_statics => (
	is => 'ro',
	lazy => 1,
	builder => sub {[]},
);

has local_static => (
	is => 'ro',
	lazy => 1,
	builder => sub { 0 },
);

has content_type => (
	is => 'ro',
	predicate => 1,
);

has default_root => (
	is => 'ro',
	predicate => 1,
);

sub add_middleware_static {
	my ( $self, $from, $root, $pass_through, $content_type ) = @_;
	$root = $self->default_root if !defined $root and $self->has_default_root;
	croak "Static needs a root directory for a static directory" unless defined $root;
	unshift @{$self->middleware_statics}, Plack::Middleware::Static->new(
		path => $from,
		root => path($root)->absolute,
		pass_through => $pass_through ? 1 : 0,
		defined $content_type
			? ( content_type => $content_type )
			: $self->has_content_type
				? ( content_type => $self->content_type )
				: (),
	);
}

sub BUILD {
	my ( $self ) = @_;
	$self->app->register_function('static',sub {
		my ( $from, $root, $content_type ) = @_;
		$self->add_middleware_static($from,$root,1,$content_type);
	});
	$self->app->register_function('static_404',sub {
		my ( $from, $root, $content_type ) = @_;
		$self->add_middleware_static($from,$root,0,$content_type);
	});
	my $class = $self->local_static
		? $self->class
		: $self->app->y_main;
	$class->prepend_to_chain("/...",sub {
		map { my $mw = $_; sub () { $mw } } @{$self->middleware_statics}
	});
}

1;

__END__