File Coverage

lib/Graph/Easy/Node/Anon.pm
Criterion Covered Total %
statement 25 27 92.5
branch n/a
condition n/a
subroutine 9 11 81.8
pod 5 5 100.0
total 39 43 90.7


line stmt bran cond sub pod time code
1             #############################################################################
2             # (c) by Tels 2004. Part of Graph::Easy. An anonymous (invisible) node.
3             #
4             #############################################################################
5              
6             package Graph::Easy::Node::Anon;
7              
8 48     48   15268 use Graph::Easy::Node;
  48         57  
  48         1816  
9              
10             @ISA = qw/Graph::Easy::Node/;
11             $VERSION = '0.76';
12              
13 48     48   170 use strict;
  48         52  
  48         797  
14 48     48   149 use warnings;
  48         52  
  48         8149  
15              
16             sub _init
17             {
18 21     21   22 my $self = shift;
19              
20 21         63 $self->SUPER::_init(@_);
21              
22 21         40 $self->{name} = '#' . $self->{id};
23 21         19 $self->{class} = 'node.anon';
24              
25 21         31 $self->{att}->{label} = ' ';
26              
27 21         30 $self;
28             }
29              
30             sub _correct_size
31             {
32 7     7   10 my $self = shift;
33              
34 7         9 $self->{w} = 3;
35 7         10 $self->{h} = 3;
36              
37 7         10 $self;
38             }
39              
40             sub attributes_as_txt
41             {
42 9     9 1 13 my $self = shift;
43              
44 9         64 $self->SUPER::attributes_as_txt( {
45             node => {
46             label => undef,
47             shape => undef,
48             class => undef,
49             } } );
50             }
51              
52             sub as_pure_txt
53             {
54 6     6 1 10 '[ ]';
55             }
56              
57             sub _as_part_txt
58             {
59 10     10   25 '[ ]';
60             }
61              
62             sub as_txt
63             {
64 3     3 1 14 my $self = shift;
65              
66 3         8 '[ ]' . $self->attributes_as_txt();
67             }
68              
69             sub text_styles_as_css
70             {
71 0     0 1   '';
72             }
73              
74             sub is_anon
75             {
76             # is an anon node
77 0     0 1   1;
78             }
79              
80             1;
81             __END__