File Coverage

blib/lib/PPI/Token/QuoteLike/Regexp.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 4 4 100.0
total 24 24 100.0


line stmt bran cond sub pod time code
1             package PPI::Token::QuoteLike::Regexp;
2              
3             =pod
4              
5             =head1 NAME
6              
7             PPI::Token::QuoteLike::Regexp - Regexp constructor quote-like operator
8              
9             =head1 INHERITANCE
10              
11             PPI::Token::QuoteLike::Regexp
12             isa PPI::Token::QuoteLike
13             isa PPI::Token
14             isa PPI::Element
15              
16             =head1 DESCRIPTION
17              
18             A C object represents the quote-like
19             operator used to construct anonymous L objects, as follows.
20              
21             # Create a Regexp object for a module filename
22             my $module = qr/\.pm$/;
23              
24             =head1 METHODS
25              
26             The following methods are provided by this class,
27             beyond those provided by the parent L,
28             L and L classes.
29              
30             =cut
31              
32 64     64   369 use strict;
  64         103  
  64         1465  
33 64     64   283 use PPI::Token::QuoteLike ();
  64         102  
  64         700  
34 64     64   247 use PPI::Token::_QuoteEngine::Full ();
  64         100  
  64         8801  
35              
36             our $VERSION = '1.275';
37              
38             our @ISA = qw{
39             PPI::Token::_QuoteEngine::Full
40             PPI::Token::QuoteLike
41             };
42              
43              
44              
45              
46              
47             #####################################################################
48             # PPI::Token::QuoteLike::Regexp Methods
49              
50             =pod
51              
52             =head2 get_match_string
53              
54             The C method returns the portion of the string that
55             will be compiled into the match portion of the regexp.
56              
57             =cut
58              
59             sub get_match_string {
60 1     1 1 700 return $_[0]->_section_content( 0 );
61             }
62              
63             =pod
64              
65             =head2 get_substitute_string
66              
67             The C method always returns C, since
68             the C construction provides no substitution string. This method
69             is provided for orthogonality with C.
70              
71             =cut
72              
73             sub get_substitute_string {
74 1     1 1 19 return undef;
75             }
76              
77             =pod
78              
79             =head2 get_modifiers
80              
81             The C method returns the modifiers that will be
82             compiled into the regexp.
83              
84             =cut
85              
86             sub get_modifiers {
87 1     1 1 7 return $_[0]->_modifiers();
88             }
89              
90             =pod
91              
92             =head2 get_delimiters
93              
94             The C method returns the delimiters of the string as an
95             array. The first and only element is the delimiters of the string to be
96             compiled into a match string.
97              
98             =cut
99              
100             sub get_delimiters {
101 1     1 1 6 return $_[0]->_delimiters();
102             }
103              
104             1;
105              
106             =pod
107              
108             =head1 SUPPORT
109              
110             See the L in the main module.
111              
112             =head1 AUTHOR
113              
114             Adam Kennedy Eadamk@cpan.orgE
115              
116             =head1 COPYRIGHT
117              
118             Copyright 2001 - 2011 Adam Kennedy.
119              
120             This program is free software; you can redistribute
121             it and/or modify it under the same terms as Perl itself.
122              
123             The full text of the license can be found in the
124             LICENSE file included with this module.
125              
126             =cut