File Coverage

blib/lib/PkgForge/App/Buildd.pm
Criterion Covered Total %
statement 12 13 92.3
branch n/a
condition n/a
subroutine 4 5 80.0
pod n/a
total 16 18 88.8


line stmt bran cond sub pod time code
1             package PkgForge::App::Buildd; # -*-perl-*-
2 1     1   1640 use strict;
  1         2  
  1         33  
3 1     1   6 use warnings;
  1         2  
  1         41  
4              
5             # $Id: Buildd.pm.in 15153 2010-12-17 09:10:40Z squinney@INF.ED.AC.UK $
6             # $Source:$
7             # $Revision: 15153 $
8             # $HeadURL: https://svn.lcfg.org/svn/source/tags/PkgForge-Server/PkgForge_Server_1_1_10/lib/PkgForge/App/Buildd.pm.in $
9             # $Date: 2010-12-17 09:10:40 +0000 (Fri, 17 Dec 2010) $
10              
11             our $VERSION = '1.1.10';
12              
13 1     1   6 use Moose;
  1         2  
  1         10  
14              
15             extends qw(PkgForge::Handler::Buildd MooseX::App::Cmd::Command);
16              
17 0     0     sub abstract { return q{Build the next job in the queue} };
18              
19             around 'execute' => sub {
20             my ( $orig, $self ) = @_;
21              
22             # throw away the command-line args
23             return $self->$orig()
24             };
25              
26 1     1   13007 no Moose;
  1         2  
  1         6  
27             __PACKAGE__->meta->make_immutable;
28              
29             1;
30             __END__
31