File Coverage

blib/lib/Gantry/Stash.pm

Criterion	Covered	Total	%
statement	9	23	39.1
branch	0	4	0.0
condition			n/a
subroutine	3	8	37.5
pod			n/a
total	12	35	34.2

package Gantry::Stash;
package stash;

use strict;

use Gantry::Stash::View;
use Gantry::Stash::Controller;

#-------------------------------------------------
# AUTOLOAD
#-------------------------------------------------
sub AUTOLOAD {
    my $self    = shift;
    my $command = our $AUTOLOAD;
    $command    =~ s/.*://;

    die( "Undefined stash method: $command" );

} # end AUTOLOAD

#-------------------------------------------------
# DESTROY
#-------------------------------------------------
sub DESTROY { }

#-------------------------------------------------
# new
#-------------------------------------------------
sub new {
    my $class = shift;
    my $self  = bless( {}, $class );
    return $self;

} # end new

#-------------------------------------------------
# view
#-------------------------------------------------
sub view {
    my $self = shift;

    $self->{__VIEW__} = view->new() unless defined $self->{__VIEW__};

    return $self->{__VIEW__};

} # end view

#-------------------------------------------------
# controller
#-------------------------------------------------
sub controller {
    my $self = shift;

    $self->{__CONTROLLER__} = controller->new()
        unless defined $self->{__CONTROLLER__};

    return $self->{__CONTROLLER__};

} # end controller

1;

__END__