blib/lib/Gtk2/Ex/DbLinker/DbTools.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 9 | 9 | 100.0 |
branch | n/a | ||
condition | n/a | ||
subroutine | 3 | 3 | 100.0 |
pod | 0 | 1 | 0.0 |
total | 12 | 13 | 92.3 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | |||||||
2 | =head1 NAME | ||||||
3 | |||||||
4 | Gtk2::Ex::DbLinker::DbTools - Databases access part of DbLinker | ||||||
5 | |||||||
6 | =cut | ||||||
7 | |||||||
8 | package Gtk2::Ex::DbLinker::DbTools; | ||||||
9 | 1 | 1 | 17230 | use strict; | |||
1 | 3 | ||||||
1 | 24 | ||||||
10 | 1 | 1 | 5 | use warnings; | |||
1 | 2 | ||||||
1 | 77 | ||||||
11 | |||||||
12 | =head1 VERSION | ||||||
13 | |||||||
14 | version 0.112 | ||||||
15 | |||||||
16 | =cut | ||||||
17 | |||||||
18 | our $VERSION = '0.112'; | ||||||
19 | $VERSION = eval $VERSION; | ||||||
20 | |||||||
21 | sub new { | ||||||
22 | 1 | 1 | 0 | 21 | my ( $class, $arg ) = @_; | ||
23 | 1 | 5 | my $self = {}; | ||||
24 | 1 | 5 | return bless $self, $class; | ||||
25 | } | ||||||
26 | |||||||
27 | 1; | ||||||
28 | |||||||
29 | __END__ |