File Coverage

blib/lib/Parse/Functions/Ruby.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 20 21 95.2


line stmt bran cond sub pod time code
1             package Parse::Functions::Ruby;
2              
3 1     1   21910 use 5.008;
  1         4  
  1         42  
4 1     1   6 use strict;
  1         1  
  1         43  
5 1     1   4 use warnings;
  1         2  
  1         25  
6 1     1   618 use Parse::Functions ();
  1         2  
  1         107  
7              
8             our $VERSION = '0.01';
9             our @ISA = qw(Parse::Functions);
10              
11             ######################################################################
12              
13             sub function_re {
14 3     3 0 5 my ($self) = @_;
15              
16 3         13 my $newline = $self->newline;
17 3         57 return qr/
18             (?:
19             =begin.*?=end
20             |
21             (?:^|$newline)\s*
22             (?:
23             (?:def)\s+(\w+)
24             )
25             )
26             /sx;
27             }
28              
29             1;
30              
31             # Copyright 2008-2014 The Padre development team as listed in Padre.pm.
32             # LICENSE
33             # This program is free software; you can redistribute it and/or
34             # modify it under the same terms as Perl 5 itself.
35