File Coverage

blib/lib/Git/Repository/Plugin/AUTOLOAD.pm
Criterion Covered Total %
statement 17 17 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod n/a
total 24 25 96.0


line stmt bran cond sub pod time code
1             package Git::Repository::Plugin::AUTOLOAD;
2             $Git::Repository::Plugin::AUTOLOAD::VERSION = '1.003';
3 1     1   66353 use warnings;
  1         4  
  1         46  
4 1     1   7 use strict;
  1         5  
  1         28  
5 1     1   27 use 5.006;
  1         3  
6              
7 1     1   656 use Git::Repository::Plugin;
  1         529  
  1         153  
8             our @ISA = qw( Git::Repository::Plugin );
9 1     1   42 sub _keywords {qw( AUTOLOAD )}
10              
11             sub AUTOLOAD {
12 13     13   878492 my ($self) = shift;
13              
14             # get the command name
15 13         108 ( my $cmd = our $AUTOLOAD ) =~ s/.*:://;
16 13         29 $cmd =~ y/_/-/;
17              
18             # but ignore some commands
19 13 50       43 return if $cmd eq 'DESTROY';
20              
21             # run it
22 13         51 return $self->run( $cmd, @_ );
23             }
24              
25             1;
26              
27             __END__