File Coverage

blib/lib/WE/Obj/Sequence.pm
Criterion Covered Total %
statement 9 11 81.8
branch n/a
condition n/a
subroutine 3 5 60.0
pod 2 2 100.0
total 14 18 77.7


line stmt bran cond sub pod time code
1             # -*- perl -*-
2              
3             #
4             # $Id: Sequence.pm,v 1.5 2003/12/16 15:21:23 eserte Exp $
5             # Author: Slaven Rezic
6             #
7             # Copyright (C) 2001 Online Office Berlin. All rights reserved.
8             # Copyright (C) 2002 Slaven Rezic.
9             # This is free software; you can redistribute it and/or modify it under the
10             # terms of the GNU General Public License, see the file COPYING.
11              
12             #
13             # Mail: slaven@rezic.de
14             # WWW: http://we-framework.sourceforge.net
15             #
16              
17             package WE::Obj::Sequence;
18              
19 13     13   67 use base qw(WE::Obj::FolderObj);
  13         25  
  13         1128  
20              
21 13     13   65 use strict;
  13         23  
  13         458  
22 13     13   187 use vars qw($VERSION);
  13         22  
  13         1735  
23             $VERSION = sprintf("%d.%02d", q$Revision: 1.5 $ =~ /(\d+)\.(\d+)/);
24              
25 0     0 1   sub instantiable { 1 }
26              
27 0     0 1   sub insertable_types { [qw(WE::Obj::LangCluster
28             WE::Obj::Doc
29             )] }
30              
31             1;
32              
33             __END__