File Coverage

blib/lib/Erlang/Parser/Node/BaseInteger.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition 2 2 100.0
subroutine 2 2 100.0
pod 1 1 100.0
total 11 11 100.0


line stmt bran cond sub pod time code
1             # Copyright 2011-2012 Yuki Izumi. ( anneli AT cpan DOT org )
2             # This is free software; you can redistribute it and/or modify it under the
3             # same terms as Perl itself.
4              
5             package Erlang::Parser::Node::BaseInteger;
6              
7 3     3   10 use Moose;
  3         4  
  3         895  
8             with 'Erlang::Parser::Node';
9              
10             has 'baseinteger' => (is => 'rw', required => 1, isa => 'Str');
11              
12             sub print {
13 380     380 1 331 my ($self, $fh, $depth) = @_;
14 380   100     583 $depth ||= 0;
15 380         9409 print $fh $self->baseinteger;
16             }
17              
18             __PACKAGE__->meta->make_immutable;
19              
20             =head1 NAME
21              
22             Erlang::Parser::Node::BaseInteger - a number with base
23              
24             =head1 DESCRIPTION
25              
26             A number with a specified base.
27              
28             =head2 Accessors
29              
30             =over 4
31              
32             =item C<baseinteger>
33              
34             The string representation of the number.
35              
36             =back
37              
38             =head2 Methods
39              
40             =over 4
41              
42             =item C<print>
43              
44             Pretty-prints the node to its filehandle argument.
45              
46             =back
47              
48             =head1 EXAMPLE
49              
50             16#f7f7f7f7
51              
52             =cut
53              
54             1;
55              
56             # vim: set sw=4 ts=4: