File Coverage

blib/lib/Erlang/Parser/Node/Literal.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::Literal;
6              
7 3     3   11 use Moose;
  3         6  
  3         15  
8             with 'Erlang::Parser::Node';
9              
10             has 'literal' => (is => 'rw', required => 1, isa => 'Str');
11              
12             sub print {
13 948     948 1 1133 my ($self, $fh, $depth) = @_;
14 948   100     1817 $depth ||= 0;
15 948         23907 print $fh '$', $self->literal;
16             }
17              
18             __PACKAGE__->meta->make_immutable;
19              
20             =head1 NAME
21              
22             Erlang::Parser::Node::Literal - a character literal
23              
24             =head1 DESCRIPTION
25              
26             A number based on the ASCII value (Unicode codepoint?) of a character.
27              
28             =head2 Accessors
29              
30             =over 4
31              
32             =item C<literal>
33              
34             The character (or string) which we take the literal value of.
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             $X
51              
52             =cut
53              
54             1;
55              
56             # vim: set sw=4 ts=4: