File Coverage

blib/lib/Clustericious/Coder/BSON.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 1 0.0
total 22 23 95.6


line stmt bran cond sub pod time code
1             package Clustericious::Coder::BSON;
2              
3 2     2   59846 use strict;
  2         2  
  2         57  
4 2     2   7 use warnings;
  2         4  
  2         55  
5 2     2   420 use BSON ();
  2         17124  
  2         34  
6 2     2   47 use 5.010;
  2         4  
7              
8             # ABSTRACT: BSON encoder for AutodataHandler
9             our $VERSION = '0.01'; # VERSION
10              
11              
12             sub coder
13             {
14             my %coder = (
15             type => 'application/bson',
16             format => 'bson',
17 2     2   522 encode => sub { BSON::encode($_[0]) },
18 1     1   95 decode => sub { BSON::decode($_[0]) },
19 2     2 0 4308 );
20            
21 2         5 \%coder;
22             }
23              
24             1;
25              
26             __END__