File Coverage

blib/lib/Chart/Sequence/Node.pm
Criterion Covered Total %
statement 6 10 60.0
branch 0 2 0.0
condition n/a
subroutine 2 3 66.6
pod n/a
total 8 15 53.3


line stmt bran cond sub pod time code
1             package Chart::Sequence::Node;
2              
3             $VERSION = 0.000_1;
4              
5             =head1 NAME
6              
7             Chart::Sequence::Node - What messages are sent to/from
8              
9             =head1 SYNOPSIS
10              
11             =head1 DESCRIPTION
12              
13             =cut
14              
15 4     4   7683 use Chart::Sequence::Object ();
  4         8  
  4         161  
16             @ISA = qw( Chart::Sequence::Object );
17              
18 4     4   24 use strict;
  4         7  
  4         421  
19              
20              
21             sub new {
22 0     0     my $proto = shift;
23              
24 0 0         if ( @_ == 1 ) {
25 0           @_ = ( Name => @_ );
26             }
27              
28 0           return $proto->SUPER::new( @_ );
29             }
30              
31              
32             __PACKAGE__->make_methods(qw(
33             number
34             _layout_info
35             ));
36              
37             =head2 METHODS
38              
39             =over
40              
41             =item name
42              
43             Gets/sets a node's name
44              
45             =item number
46              
47             Each node is assigned a number when added to a sequence
48              
49             =cut
50              
51             =back
52              
53             =head1 LIMITATIONS
54              
55             =head1 COPYRIGHT
56              
57             Copyright 2002, R. Barrie Slaymaker, Jr., All Rights Reserved
58              
59             =head1 LICENSE
60              
61             You may use this module under the terms of the BSD, Artistic, oir GPL licenses,
62             any version.
63              
64             =head1 AUTHOR
65              
66             Barrie Slaymaker
67              
68             =cut
69              
70             1;