File Coverage

blib/lib/Graph/Easy/Marpa/Actions.pm
Criterion Covered Total %
statement 21 25 84.0
branch n/a
condition n/a
subroutine 7 9 77.7
pod 2 2 100.0
total 30 36 83.3


line stmt bran cond sub pod time code
1             package Graph::Easy::Marpa::Actions;
2              
3 3     3   16 use strict;
  3         6  
  3         114  
4 3     3   17 use utf8;
  3         6  
  3         21  
5 3     3   67 use warnings;
  3         14  
  3         120  
6 3     3   15 use warnings qw(FATAL utf8); # Fatalize encoding glitches.
  3         6  
  3         130  
7 3     3   14 use open qw(:std :utf8); # Undeclared streams in UTF-8.
  3         6  
  3         22  
8 3     3   372 use charnames qw(:full :short); # Unneeded in v5.16.
  3         6  
  3         17  
9              
10 3     3   4004 use Set::Array;
  3         48060  
  3         602  
11              
12             # Warning: Do not use Moo or anything similar.
13             # This class needs a sub new() due to the way
14             # Marpa::R2 calls the constructor.
15              
16             our $VERSION = '2.01';
17              
18             # --------------------------------------------------
19              
20             sub graph
21             {
22 0     0 1   my($stash, $graph) = @_;
23              
24 0           return $graph;
25              
26             } # End of graph.
27              
28             # ------------------------------------------------
29              
30             sub new
31             {
32 0     0 1   my($class) = @_;
33              
34 0           return bless {}, $class;
35              
36             } # End of new.
37              
38             # ------------------------------------------------
39              
40             1;
41              
42             =pod
43              
44             =head1 NAME
45              
46             C - A namespace for Graph::Easy::Marpa::Parser, called via Marpa
47              
48             =head1 Synopsis
49              
50             End-users do not need to call the methods in this module.
51              
52             Only L does that, under certain conditions as specified in the grammar declared in
53             L.
54              
55             =head1 Description
56              
57             C provides a namespace for L's Marpa-style actions.
58              
59             See L for details.
60              
61             =head1 Installation
62              
63             Install L as you would for any C module:
64              
65             Run:
66              
67             cpanm Graph::Easy::Marpa
68              
69             or run:
70              
71             sudo cpan Graph::Easy::Marpa
72              
73             or unpack the distro, and then either:
74              
75             perl Build.PL
76             ./Build
77             ./Build test
78             sudo ./Build install
79              
80             or:
81              
82             perl Makefile.PL
83             make (or dmake or nmake)
84             make test
85             make install
86              
87             =head1 Constructor and Initialization
88              
89             C is called as C<< my($action) = Graph::Easy::Marpa::Actions -> new() >>.
90              
91             It returns a new object of type C.
92              
93             Such calls to new() have no parameters, and are only ever created by L.
94              
95             =head1 Methods
96              
97             =head2 graph($graph)
98              
99             Returns $graph.
100              
101             Called as appropriate by L.
102              
103             =head2 new()
104              
105             Returns a hashref, currently empty.
106              
107             Called as appropriate by L.
108              
109             =head1 Machine-Readable Change Log
110              
111             The file Changes was converted into Changelog.ini by L.
112              
113             =head1 Version Numbers
114              
115             Version numbers < 1.00 represent development versions. From 1.00 up, they are production versions.
116              
117             =head1 Support
118              
119             Email the author, or log a bug on RT:
120              
121             L.
122              
123             =head1 Author
124              
125             L was written by Ron Savage Iron@savage.net.auE> in 2011.
126              
127             Home page: L.
128              
129             =head1 Copyright
130              
131             Australian copyright (c) 2011, Ron Savage.
132              
133             All Programs of mine are 'OSI Certified Open Source Software';
134             you can redistribute them and/or modify them under the terms of
135             The Artistic License, a copy of which is available at:
136             http://www.opensource.org/licenses/index.html
137              
138             =cut