File Coverage

blib/lib/DestructAssign.pm
Criterion Covered Total %
statement 14 16 87.5
branch n/a
condition n/a
subroutine 5 7 71.4
pod 2 2 100.0
total 21 25 84.0


line stmt bran cond sub pod time code
1             package DestructAssign;
2              
3 1     1   12893 use 5.008009;
  1         2  
4 1     1   3 use strict;
  1         6  
  1         18  
5 1     1   2 use warnings;
  1         4  
  1         24  
6 1     1   2 use Carp;
  1         1  
  1         64  
7              
8             require Exporter;
9 1     1   530 use AutoLoader;
  1         984  
  1         3  
10              
11             our @ISA = qw(Exporter);
12              
13             # Items to export into callers namespace by default. Note: do not export
14             # names by default without a very good reason. Use EXPORT_OK instead.
15             # Do not simply export all your public functions/methods/constants.
16              
17             # This allows declaration use DestructAssign ':all';
18             # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
19             # will save memory.
20             our %EXPORT_TAGS = ( 'all' => [ qw(
21             des des_alias
22             ) ] );
23              
24             our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
25              
26             our @EXPORT = qw(
27            
28             );
29              
30             our $VERSION = '0.002007';
31              
32 0     0 1   sub des($) : lvalue { $_[0] }
33 0     0 1   sub des_alias($) : lvalue { $_[0] }
34              
35             require XSLoader;
36             XSLoader::load('DestructAssign', $VERSION);
37              
38             # Preloaded methods go here.
39              
40             # Autoload methods go after =cut, and are processed by the autosplit program.
41              
42             1;
43             __END__