File Coverage

blib/lib/Glib/JSON.pm
Criterion Covered Total %
statement 13 15 86.6
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 18 20 90.0


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