File Coverage

lib/Graph/Easy/Group/Anon.pm
Criterion Covered Total %
statement 17 29 58.6
branch n/a
condition n/a
subroutine 5 11 45.4
pod 5 5 100.0
total 27 45 60.0


line stmt bran cond sub pod time code
1             #############################################################################
2             # (c) by Tels 2004. Part of Graph::Easy. An anonymous group.
3             #
4             #############################################################################
5              
6             package Graph::Easy::Group::Anon;
7              
8 49     49   29964 use Graph::Easy::Group;
  49         110  
  49         1633  
9 49     49   416 use warnings;
  49         278  
  49         2943  
10              
11             @ISA = qw/Graph::Easy::Group/;
12             $VERSION = '0.75';
13              
14 49     49   282 use strict;
  49         93  
  49         36513  
15              
16             sub _init
17             {
18 16     16   27 my $self = shift;
19              
20 16         99 $self->SUPER::_init(@_);
21              
22 16         43 $self->{name} = 'Group #' . $self->{id};
23 16         31 $self->{class} = 'group.anon';
24              
25 16         44 $self->{att}->{label} = '';
26              
27 16         47 $self;
28             }
29              
30             sub _correct_size
31             {
32 0     0   0 my $self = shift;
33              
34 0         0 $self->{w} = 3;
35 0         0 $self->{h} = 3;
36              
37 0         0 $self;
38             }
39              
40             sub attributes_as_txt
41             {
42 5     5 1 11 my $self = shift;
43              
44 5         62 $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 0     0 1   '( )';
55             }
56              
57             sub _as_part_txt
58             {
59 0     0     '( )';
60             }
61              
62             sub as_graphviz_txt
63             {
64 0     0 1   my $self = shift;
65            
66 0           my $name = $self->{name};
67              
68             # quote special chars in name
69 0           $name =~ s/([\[\]\(\)\{\}\#])/\\$1/g;
70              
71 0           '"' . $name . '"';
72             }
73              
74             sub text_styles_as_css
75             {
76 0     0 1   '';
77             }
78              
79             sub is_anon
80             {
81             # is an anon group
82 0     0 1   1;
83             }
84              
85             1;
86             __END__