File Coverage

blib/lib/Tree/Visualize/ASCII/Node/Brackets.pm
Criterion Covered Total %
statement 12 16 75.0
branch 0 2 0.0
condition n/a
subroutine 4 5 80.0
pod 1 1 100.0
total 17 24 70.8


line stmt bran cond sub pod time code
1              
2             package Tree::Visualize::ASCII::Node::Brackets;
3              
4 1     1   1445 use strict;
  1         2  
  1         29  
5 1     1   5 use warnings;
  1         2  
  1         24  
6              
7 1     1   5 use Tree::Visualize::Exceptions;
  1         2  
  1         42  
8              
9             our $VERSION = '0.01';
10              
11 1     1   5 use base qw(Tree::Visualize::Node::INode);
  1         2  
  1         576  
12              
13             sub draw {
14 0     0 1   my ($self) = @_;
15 0           my $node_value = $self->{tree}->getNodeValue();
16 0 0         ($node_value !~ /\n/)
17             || throw Tree::Visualize::IllegalOperation "node value has a newline in it, this is currently not supported.";
18 0           return "[$node_value]";
19             }
20              
21             1;
22              
23             __END__