File Coverage

blib/lib/Parse/Functions/Python.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::Python;
2              
3 1     1   25590 use 5.008;
  1         4  
  1         49  
4 1     1   8 use strict;
  1         2  
  1         57  
5 1     1   6 use warnings;
  1         2  
  1         32  
6 1     1   690 use Parse::Functions;
  1         3  
  1         98  
7              
8             our $VERSION = '0.01';
9             our @ISA = qw(Parse::Functions);
10              
11             ######################################################################
12              
13             sub function_re {
14 3     3 0 6 my ($self) = @_;
15              
16 3         17 my $newline = $self->newline;
17 3         137 return qr/
18             (?:
19             \"\"\".*?\"\"\"
20             |
21             (?:^|$newline)\s*
22             (?:
23             (?:def)\s+(\w+)
24             |
25             (?:(\w+)\s*\=\s*lambda)
26             )
27             )
28             /sx;
29             }
30              
31             1;
32              
33             # Copyright 2008-2014 The Padre development team as listed in Padre.pm.
34             # LICENSE
35             # This program is free software; you can redistribute it and/or
36             # modify it under the same terms as Perl 5 itself.
37