File Coverage

blib/lib/App/Rgit/Guard.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition 1 3 33.3
subroutine 4 4 100.0
pod 1 1 100.0
total 17 19 89.4


line stmt bran cond sub pod time code
1             package App::Rgit::Guard;
2              
3 2     2   16 use strict;
  2         4  
  2         108  
4 2     2   12 use warnings;
  2         96  
  2         333  
5              
6             =head1 NAME
7              
8             App::Rgit::Guard - Scope guard helper for App::Rgit.
9              
10             =head1 VERSION
11              
12             Version 0.08
13              
14             =cut
15              
16             our $VERSION = '0.08';
17              
18             =head1 DESCRIPTION
19              
20             This class implements a simple scope guard object.
21              
22             This is an internal module to L.
23              
24             =head1 METHODS
25              
26             =head2 C
27              
28             Creates a new C object that will call C<$callback> when it is destroyed.
29              
30             =cut
31              
32             sub new {
33 4     4 1 8 my $class = shift;
34 4   33     38 $class = ref $class || $class;
35              
36 4         26 bless \($_[0]), $class;
37             }
38              
39             =head2 C
40              
41             Invokes the callback when the guard object goes out of scope.
42              
43             =cut
44              
45 4     4   9 sub DESTROY { ${$_[0]}->() }
  4         39  
46              
47             =head1 SEE ALSO
48              
49             L.
50              
51             =head1 AUTHOR
52              
53             Vincent Pit, C<< >>, L.
54              
55             You can contact me by mail or on C (vincent).
56              
57             =head1 BUGS
58              
59             Please report any bugs or feature requests to C, or through the web interface at L.
60             I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
61              
62             =head1 SUPPORT
63              
64             You can find documentation for this module with the perldoc command.
65              
66             perldoc App::Rgit::Guard
67              
68             =head1 COPYRIGHT & LICENSE
69              
70             Copyright 2008,2009,2010 Vincent Pit, all rights reserved.
71              
72             This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
73              
74             =cut
75              
76             1; # End of App::Rgit::Guard