File Coverage

blib/lib/App/NoodlePay.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 12 83.3


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2             # -*-cperl-*-
3             #
4             # App::NoodlePay - Convenient way to securely send Bitcoin from cold storage
5             # Copyright (c) 2017 Ashish Gulhati
6             #
7             # $Id: lib/App/NoodlePay.pm v1.002 Mon Sep 25 18:56:05 PDT 2017 $
8              
9             package App::NoodlePay;
10              
11 1     1   45192 use warnings;
  1         2  
  1         31  
12 1     1   5 use strict;
  1         1  
  1         19  
13              
14 1     1   209 use Wx qw (:everything);
  0            
  0            
15             use Wx::Event qw (EVT_BUTTON);
16             use GD::Barcode::QRcode;
17             use Math::Prime::Util qw(fromdigits todigitstring);
18             use vars qw( $VERSION $AUTOLOAD );
19              
20             our ( $VERSION ) = '$Revision: 1.002 $' =~ /\s+([\d\.]+)/;
21              
22             1;
23              
24             __END__