File Coverage

blib/lib/Gantry/Stash/Controller.pm
Criterion Covered Total %
statement 0 11 0.0
branch 0 2 0.0
condition n/a
subroutine 0 4 0.0
pod n/a
total 0 17 0.0


line stmt bran cond sub pod time code
1             package Gantry::Stash::Controller;
2             package controller;
3              
4             #-------------------------------------------------
5             # AUTOLOAD
6             #-------------------------------------------------
7             sub AUTOLOAD {
8 0     0     my $self = shift;
9 0           my $command = our $AUTOLOAD;
10 0           $command =~ s/.*://;
11              
12 0           die( "Undefined stash->controller method $command" );
13              
14             } # end AUTOLOAD
15              
16             #-------------------------------------------------
17             # DESTROY
18             #-------------------------------------------------
19 0     0     sub DESTROY { }
20              
21             #-------------------------------------------------
22             # new
23             #-------------------------------------------------
24             sub new {
25 0     0     my $class = shift;
26 0           my $self = bless( {}, $class );
27 0           return $self;
28              
29             } # end new
30              
31             #-------------------------------------------------
32             # data( value )
33             #-------------------------------------------------
34             sub data {
35 0     0     my( $self, $p ) = ( shift, shift );
36              
37 0 0         $self->{__DATA__} = $p if defined $p;
38 0           return( $self->{__DATA__} );
39              
40             } # end data
41              
42             1;
43              
44             __END__