File Coverage

blib/lib/Ukigumo/Client/Role/VC.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1 4     4   2868 use strict;
  4         10  
  4         134  
2 4     4   21 use warnings;
  4         8  
  4         100  
3 4     4   20 use utf8;
  4         153  
  4         24  
4              
5             package Ukigumo::Client::Role::VC;
6 4     4   3553 use Mouse::Role;
  4         4214  
  4         18  
7              
8             has branch => (
9             is => 'ro',
10             isa => 'Str',
11             required => 1,
12             );
13              
14             has repository => (
15             is => 'ro',
16             isa => 'Str',
17             required => 1,
18             );
19              
20             has description => (
21             is => 'ro',
22             isa => 'Str',
23             lazy => 1,
24             default => sub {
25             my $self = shift;
26             join(' ', $self->repository, $self->branch);
27             }
28             );
29              
30             has skip_if_unmodified => (
31             is => 'ro',
32             isa => 'Bool',
33             default => undef,
34             );
35              
36             requires qw(
37             get_revision
38             update
39             get_log
40             default_branch
41             );
42              
43             1;
44