File Coverage

blib/lib/Pickles/View.pm

Criterion	Covered	Total	%
statement	22	26	84.6
branch	4	4	100.0
condition	2	4	50.0
subroutine	5	7	71.4
pod	0	5	0.0
total	33	46	71.7

package Pickles::View;
use strict;
use base qw(Class::Data::Inheritable);

__PACKAGE__->mk_classdata(qw(__Config));

sub new {
    my $class = shift;
    my $self = bless {}, $class;
    $self;
}

sub render { die 'abstract method!'; }
sub content_type { 'text/html'; }

sub config {
    my $class = shift;
    return ($class->__Config || {}) unless @_;
    my $values = $_[0];
    if ( @_ > 1 ) {
        $values = { @_ };
    }
    $class->__Config( $values );
}

sub merge_config {
    my( $self, $c ) = @_;

    my $class = ref $self;
    my $appname = $c->config->appname;
    (my $config_key = $class) =~ s/^${appname}:://;
    my $config = $c->config->{$config_key} || {};
    my %config = (
        %{$self->config},
        %{$config},
    );
    return \%config;
}

1;

__END__