File Coverage

blib/lib/Cvs/Result/Rtag.pm
Criterion Covered Total %
statement 6 22 27.2
branch 0 6 0.0
condition n/a
subroutine 2 9 22.2
pod 4 7 57.1
total 12 44 27.2


line stmt bran cond sub pod time code
1             package Cvs::Result::Rtag;
2              
3 1     1   7 use strict;
  1         2  
  1         45  
4 1     1   6 use base qw(Cvs::Result::Base);
  1         2  
  1         828  
5              
6             =pod
7              
8             =head1 NAME
9              
10             Cvs::Result::Rtag - Result class for the cvs tag command.
11              
12             =head1 DESCRIPTION
13              
14             This class handle things that compose the result of the cvs rtag
15             command.
16              
17             =head1 METHODS
18              
19             =head3 get_warning
20              
21             my $warn_str = $result->get_warning($file);
22              
23             Get the warning message for the specified file if any.
24              
25             =head1 FIELDS
26              
27             =head2 tagged
28              
29             Returns the list of tagged files if any.
30              
31             =head2 untagged
32              
33             Returns the list of untagged files if any.
34              
35             =head2 warned
36              
37             Return the lost of file who's got warning
38              
39             =cut
40              
41             sub push_tagged
42             {
43 0     0 0   my($self, $file) = @_;
44 0           push @{$self->{tagged}}, $file;
  0            
45             }
46              
47             sub tagged
48             {
49 0 0   0 1   return @{shift->{tagged}||[]};
  0            
50             }
51              
52             sub push_untagged
53             {
54 0     0 0   my($self, $file) = @_;
55 0           push @{$self->{untagged}}, $file;
  0            
56             }
57              
58             sub untagged
59             {
60 0 0   0 1   return @{shift->{untagged}||[]};
  0            
61             }
62              
63             sub push_warning
64             {
65 0     0 0   my($self, $file, $warning) = @_;
66 0           $self->{warning}->{$file} = $warning;
67             }
68              
69             sub warned
70             {
71 0 0   0 1   return keys %{shift->{warning}||{}};
  0            
72             }
73              
74             sub get_warning
75             {
76 0     0 1   my($self, $file) = @_;
77 0           return $self->{warning}->{$file};
78             }
79              
80              
81             1;
82             =pod
83              
84             =head1 LICENCE
85              
86             This library is free software; you can redistribute it and/or modify
87             it under the terms of the GNU Lesser General Public License as
88             published by the Free Software Foundation; either version 2.1 of the
89             License, or (at your option) any later version.
90              
91             This library is distributed in the hope that it will be useful, but
92             WITHOUT ANY WARRANTY; without even the implied warranty of
93             MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
94             Lesser General Public License for more details.
95              
96             You should have received a copy of the GNU Lesser General Public
97             License along with this library; if not, write to the Free Software
98             Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
99             USA
100              
101             =head1 COPYRIGHT
102              
103             Copyright (C) 2003 - Olivier Poitrey
104