File Coverage

blib/lib/Percent/Underscore.pm
Criterion Covered Total %
statement 11 11 100.0
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 17 94.1


line stmt bran cond sub pod time code
1             package Percent::Underscore;
2 1     1   509 use warnings;
  1         2  
  1         23  
3 1     1   4 use strict;
  1         1  
  1         51  
4             our $VERSION = sprintf "%d.%02d", q$Revision: 0.1 $ =~ /(\d+)/g;
5 1     1   438 use Tie::Expression;
  1         1  
  1         58  
6              
7             sub import {
8 1 50   1   8 untie %_ if tied %_;
9 1         4 tie %_, 'Tie::Expression';
10             }
11              
12             1;
13              
14             =head1 NAME
15              
16             Percent::Underscore - let %_ interpolate any expression.
17              
18             =head1 VERSION
19              
20             $Id: Underscore.pm,v 0.1 2008/07/01 17:56:27 dankogai Exp dankogai $
21              
22             =head1 SYNOPSIS
23              
24             use Percent::Underscore;
25             print "PI = $_{ 4 * atan2(1,1) }.\n";
26              
27             =head1 DESCRIPTION
28              
29             This module is just a shothand for C<< tie %_, 'Tie::Expression'; >>.
30              
31             =head1 SEE ALSO
32              
33             L
34              
35             =head1 EXPORT
36              
37             Nothing.
38              
39             =head1 AUTHOR
40              
41             Dan Kogai, C<< >>
42              
43             =head1 BUGS
44              
45             Please report any bugs or feature requests to C, or through
46             the web interface at L. I will be notified, and then you'll
47             automatically be notified of progress on your bug as I make changes.
48              
49             =head1 SUPPORT
50              
51             You can find documentation for this module with the perldoc command.
52              
53             perldoc Percent::Underscore
54              
55             You can also look for information at:
56              
57             =over 4
58              
59             =item * RT: CPAN's request tracker
60              
61             L
62              
63             =item * AnnoCPAN: Annotated CPAN documentation
64              
65             L
66              
67             =item * CPAN Ratings
68              
69             L
70              
71             =item * Search CPAN
72              
73             L
74              
75             =back
76              
77             =head1 ACKNOWLEDGEMENTS
78              
79             None so far.
80              
81             =head1 COPYRIGHT & LICENSE
82              
83             Copyright 2008 Dan Kogai, all rights reserved.
84              
85             This program is free software; you can redistribute it and/or modify it
86             under the same terms as Perl itself.