File Coverage

blib/lib/Glib/JSON.pm
Criterion Covered Total %
statement 10 12 83.3
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 14 16 87.5


line stmt bran cond sub pod time code
1             package Glib::JSON;
2             $Glib::JSON::VERSION = '0.001'; # TRIAL
3 5     5   153250 use strict;
  5         16  
  5         194  
4 5     5   28 use warnings;
  5         9  
  5         163  
5 5     5   26 use Carp qw/croak/;
  5         12  
  5         490  
6 5     5   9722 use Glib::Object::Introspection;
  0            
  0            
7             use Exporter;
8              
9             our @ISA = qw(Exporter);
10              
11             my $_JSON_GLIB_BASENAME = 'Json';
12             my $_JSON_GLIB_VERSION = '1.0';
13             my $_JSON_GLIB_PACKAGE = 'Glib::JSON';
14              
15             sub import {
16             my $class = shift;
17              
18             Glib::Object::Introspection->setup (
19             basename => $_JSON_GLIB_BASENAME,
20             version => $_JSON_GLIB_VERSION,
21             package => $_JSON_GLIB_PACKAGE,
22             );
23             }
24              
25             1;
26              
27             __END__