File Coverage

blib/lib/Form/Factory/Stasher.pm
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             package Form::Factory::Stasher;
2             $Form::Factory::Stasher::VERSION = '0.022';
3 1     1   488 use Moose::Role;
  1         2  
  1         8  
4              
5             requires qw( stash unstash );
6              
7             # ABSTRACT: An object responsible for remembering things
8              
9              
10             1;
11              
12             __END__
13              
14             =pod
15              
16             =encoding UTF-8
17              
18             =head1 NAME
19              
20             Form::Factory::Stasher - An object responsible for remembering things
21              
22             =head1 VERSION
23              
24             version 0.022
25              
26             =head1 DESCRIPTION
27              
28             A stasher remembers things.
29              
30             =head1 ROLE METHODS
31              
32             =head2 stash
33              
34             $stasher->stash($key, $hashref);
35              
36             Given a C<$key> to store it under and a C<$hashref> to store. Remember the given information for recall with L</unstash>.
37              
38             =head2 unstash
39              
40             my $hashref = $stasher->unstash($key);
41              
42             Given a C<$key>, recall a previously stored C<$hashref>.
43              
44             =head1 SEE ALSO
45              
46             L<Form::Factory::Stasher::Memory>
47              
48             =head1 AUTHOR
49              
50             Andrew Sterling Hanenkamp <hanenkamp@cpan.org>
51              
52             =head1 COPYRIGHT AND LICENSE
53              
54             This software is copyright (c) 2015 by Qubling Software LLC.
55              
56             This is free software; you can redistribute it and/or modify it under
57             the same terms as the Perl 5 programming language system itself.
58              
59             =cut