File Coverage

blib/lib/Verby/Action/Stub.pm
Criterion Covered Total %
statement 1 3 33.3
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 2 4 50.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2              
3             package Verby::Action::Stub;
4 1     1   2485 use Moose;
  0            
  0            
5              
6             our $VERSION = "0.05";
7              
8             with qw/Verby::Action/;
9              
10             has name => (
11             isa => "Str",
12             is => "rw",
13             lazy_build => 1,
14             );
15              
16             sub _build_name {
17             my $self = shift;
18             my $class = ref $self;
19              
20             $class =~ s/^Verby::Action:://;
21              
22             return $class;
23             }
24              
25             sub do {
26             my ( $self, $c ) = @_;
27             $c->done(1);
28             $c->logger->debug($self->name . " do");
29             }
30              
31             sub verify {
32             my ( $self, $c ) = @_;
33             $c->logger->debug($self->name . " verify");
34             $c->done;
35             }
36              
37             __PACKAGE__
38              
39             __END__
40              
41             =pod
42              
43             =head1 NAME
44              
45             Verby::Action::Stub - An action which just logs debug messages.
46              
47             =head1 SYNOPSIS
48              
49             use Verby::Step::Closure qw/step/;
50              
51             my $s = step "Verby::Action::Stub";
52              
53             =head1 DESCRIPTION
54              
55             This action is good for use when you need to Stub certain actions.
56              
57             =head1 METHODS
58              
59             =over 4
60              
61             =item B<do>
62              
63             Sets C<< $c->done >>.
64              
65             =item B<verify>
66              
67             Returns C<< $c->done >>.
68              
69             =back
70              
71             =head1 BUGS
72              
73             None that we are aware of. Of course, if you find a bug, let us know, and we
74             will be sure to fix it.
75              
76             =head1 CODE COVERAGE
77              
78             We use B<Devel::Cover> to test the code coverage of the tests, please refer to
79             COVERAGE section of the L<Verby> module for more information.
80              
81             =head1 SEE ALSO
82              
83             =head1 AUTHOR
84              
85             Yuval Kogman, E<lt>nothingmuch@woobling.orgE<gt>
86              
87             =head1 COPYRIGHT AND LICENSE
88              
89             Copyright 2005-2008 by Infinity Interactive, Inc.
90              
91             L<http://www.iinteractive.com>
92              
93             This library is free software; you can redistribute it and/or modify
94             it under the same terms as Perl itself.
95              
96             =cut