File Coverage

blib/lib/Yada/Yada/Yada.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package Yada::Yada::Yada;
2              
3             =head1 NAME
4              
5             Yada::Yada::Yada - defer coding to later
6              
7             =head1 SYNOPSIS
8              
9             use Yada::Yada::Yada;
10              
11             if ($something_is_true) {
12             ... # I'll fill this in later.
13             }
14              
15             =head1 DESCRIPTION
16              
17             For Perl 6 we've been promised a "yada yada yada" operator, which makes
18             '...' valid syntax for "I'll fill this bit in later.", allowing the code
19             to compile, but issue a run-time warning.
20              
21             But, like many of the other things that may or may not happen in Perl 6,
22             we can already make this happen in Perl 5.
23              
24             All you need is to 'use Yada::Yada::Yada' and off you go ...
25              
26             =head1 AUTHOR
27              
28             Tony Bowden
29              
30             =head1 BUGS and QUERIES
31              
32             Please direct all correspondence regarding this module to:
33             bug-Yada-Yada-Yada@rt.cpan.org
34              
35             =head1 COPYRIGHT
36              
37             Copyright (C) 2001-2005 Tony Bowden.
38              
39             This program is free software; you can redistribute it and/or modify it under
40             the terms of the GNU General Public License; either version 2 of the License,
41             or (at your option) any later version.
42              
43             This program is distributed in the hope that it will be useful, but WITHOUT
44             ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
45             FOR A PARTICULAR PURPOSE.
46              
47             =cut
48              
49             $VERSION = '1.00';
50              
51 1     1   15721 use strict;
  1         1  
  1         29  
52              
53 1     1   188009 use Filter::Simple;
  1         725215  
  1         10  
54              
55             FILTER_ONLY code =>
56             sub{ s/\.{3}/;require Carp; Carp::carp("Not implemented");/gsmo };
57              
58             1;