File Coverage

blib/lib/YN00.pm
Criterion Covered Total %
statement 0 13 0.0
branch n/a
condition n/a
subroutine 0 7 0.0
pod 0 1 0.0
total 0 21 0.0


line stmt bran cond sub pod time code
1             # This file was automatically generated by SWIG
2             package YN00;
3             require Exporter;
4             require DynaLoader;
5             @ISA = qw(Exporter DynaLoader);
6             package YN00c;
7             bootstrap YN00;
8             package YN00;
9             @EXPORT = qw( );
10              
11             # ---------- BASE METHODS -------------
12              
13             package YN00;
14              
15             sub TIEHASH {
16 0     0     my ($classname,$obj) = @_;
17 0           return bless $obj, $classname;
18             }
19              
20 0     0     sub CLEAR { }
21              
22 0     0     sub FIRSTKEY { }
23              
24 0     0     sub NEXTKEY { }
25              
26             sub FETCH {
27 0     0     my ($self,$field) = @_;
28 0           my $member_func = "swig_${field}_get";
29 0           $self->$member_func();
30             }
31              
32             sub STORE {
33 0     0     my ($self,$field,$newval) = @_;
34 0           my $member_func = "swig_${field}_set";
35 0           $self->$member_func($newval);
36             }
37              
38             sub this {
39 0     0 0   my $ptr = shift;
40 0           return tied(%$ptr);
41             }
42              
43              
44             # ------- FUNCTION WRAPPERS --------
45              
46             package YN00;
47              
48             *cal_kaks = *YN00c::cal_kaks;
49              
50             # ------- VARIABLE STUBS --------
51              
52             package YN00;
53              
54             1;