File Coverage

blib/lib/WWW/Mixi/OO/NewComment.pm
Criterion Covered Total %
statement 9 10 90.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod n/a
total 12 14 85.7


line stmt bran cond sub pod time code
1             # -*- cperl -*-
2             # copyright (C) 2005 Topia . all rights reserved.
3             # This is free software; you can redistribute it and/or modify it
4             # under the same terms as Perl itself.
5             # $Id: NewComment.pm 31 2005-01-29 20:53:40Z topia $
6             # $URL: file:///usr/minetools/svnroot/mixi/trunk/WWW-Mixi-OO/lib/WWW/Mixi/OO/NewComment.pm $
7             package WWW::Mixi::OO::NewComment;
8 1     1   1136 use strict;
  1         3  
  1         34  
9 1     1   4 use warnings;
  1         2  
  1         27  
10 1     1   5 use base qw(WWW::Mixi::OO::TableHistoryListPage);
  1         2  
  1         107  
11              
12             sub _parse_body_subject {
13 0     0     shift->_parse_body_subject_with_count(@_);
14             }
15              
16             1;