File Coverage

blib/lib/Perl/ToPerl6/Exception/Parse.pm
Criterion Covered Total %
statement 23 23 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod n/a
total 31 31 100.0


line stmt bran cond sub pod time code
1             package Perl::ToPerl6::Exception::Parse;
2              
3 15     15   278 use 5.006001;
  15         44  
4 15     15   66 use strict;
  15         22  
  15         326  
5 15     15   64 use warnings;
  15         23  
  15         438  
6              
7 15     15   57 use English qw< -no_match_vars >;
  15         22  
  15         92  
8 15     15   5606 use Carp qw< confess >;
  15         24  
  15         710  
9 15     15   69 use Readonly;
  15         25  
  15         684  
10              
11 15     15   1170 use Perl::ToPerl6::Utils qw< :characters >;
  15         24  
  15         765  
12              
13             our $VERSION = '0.031';
14              
15             #-----------------------------------------------------------------------------
16              
17             use Exception::Class (
18 15         169 'Perl::ToPerl6::Exception::Parse' => {
19             isa => 'Perl::ToPerl6::Exception',
20             description => 'A problem parsing source code.',
21             fields => [ qw< file_name > ],
22             alias => 'throw_parse',
23             },
24 15     15   4197 );
  15         23  
25              
26             #-----------------------------------------------------------------------------
27              
28             Readonly::Array our @EXPORT_OK => qw< throw_parse >;
29              
30             #-----------------------------------------------------------------------------
31              
32             1;
33              
34             #-----------------------------------------------------------------------------
35              
36             __END__
37              
38             =pod
39              
40             =for stopwords
41              
42             =head1 NAME
43              
44             Perl::ToPerl6::Exception::Parse - The code doesn't look like code.
45              
46             =head1 DESCRIPTION
47              
48             There was a problem with PPI parsing source code.
49              
50              
51             =head1 INTERFACE SUPPORT
52              
53             This is considered to be a public class. Any changes to its interface
54             will go through a deprecation cycle.
55              
56              
57             =head1 METHODS
58              
59             =over
60              
61             =item C<file_name()>
62              
63             Returns the name of the file that the problem was found with, if available.
64              
65              
66             =back
67              
68              
69             =head1 AUTHOR
70              
71             Elliot Shank <perl@galumph.com>
72              
73             =head1 COPYRIGHT
74              
75             Copyright (c) 2008-2011 Elliot Shank.
76              
77             This program is free software; you can redistribute it and/or modify
78             it under the same terms as Perl itself. The full text of this license
79             can be found in the LICENSE file included with this module.
80              
81             =cut
82              
83             ##############################################################################
84             # Local Variables:
85             # mode: cperl
86             # cperl-indent-level: 4
87             # fill-column: 78
88             # indent-tabs-mode: nil
89             # c-indentation-style: bsd
90             # End:
91             # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :