File Coverage

blib/lib/Atomik/Service.pm
Criterion Covered Total %
statement 4 6 66.6
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 6 8 75.0


line stmt bran cond sub pod time code
1             # $Id: /mirror/coderepos/lang/perl/Atomik/trunk/lib/Atomik/Service.pm 68155 2008-08-10T23:43:48.443812Z daisuke $
2              
3             package Atomik::Service;
4 1     1   5 use Moose;
  1         3  
  1         10  
5 1     1   8383 use MooseX::DOM;
  0            
  0            
6             use Atomik::Workspace;
7              
8             extends 'Atomik::Element';
9              
10             has_dom_children 'workspaces' => (
11             tag => 'workspace',
12             filter => sub {
13             my $self = shift;
14             return map { Atomik::Workspace->new(node => $_) } @_;
15             }
16             );
17              
18             no Moose;
19             no MooseX::DOM;
20              
21             1;