File Coverage

corpus/lib/Alien/Build/Plugin/RogerRamjet.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 19 19 100.0


line stmt bran cond sub pod time code
1             package Alien::Build::Plugin::RogerRamjet;
2              
3 3     3   231966 use strict;
  3         12  
  3         92  
4 3     3   15 use warnings;
  3         6  
  3         94  
5 3     3   508 use Alien::Build::Plugin;
  3         7  
  3         28  
6              
7             has 'foo' => 22;
8             has '+bar' => sub { 'something generated' };
9             has 'baz' => undef;
10              
11             sub init
12             {
13 4     4 1 9 my($self, $meta) = @_;
14              
15 4         10 $meta->prop->{ramjet} = 'roger';
16 4         9 $meta->prop->{foo} = $self->foo;
17 4         9 $meta->prop->{bar} = $self->bar;
18 4         9 $meta->prop->{baz} = $self->baz;
19              
20             }
21              
22             1;