File Coverage

blib/lib/Data/Object/AutoWrap/Hash.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Data::Object::AutoWrap::Hash;
2              
3 1     1   6 use warnings;
  1         3  
  1         37  
4 1     1   6 use strict;
  1         3  
  1         41  
5 1     1   7 use Data::Object::AutoWrap qw( data );
  1         3  
  1         7  
6              
7             =head1 NAME
8              
9             Data::Object::AutoWrap::Hash - Autogenerate accessors for R/O object data
10              
11             =head1 VERSION
12              
13             This document describes Data::Object::AutoWrap::Hash version 0.02
14              
15             =cut
16              
17             our $VERSION = '0.02';
18              
19             =head1 SYNOPSIS
20              
21             use Data::Object::AutoWrap::Hash;
22            
23             =head1 DESCRIPTION
24              
25             =head1 INTERFACE
26              
27             =head2 C<< new >>
28              
29             =cut
30              
31             sub new {
32 16     16 1 22 my ( $class, $data ) = @_;
33 16         168 bless { data => $data }, $class;
34             }
35              
36             1;
37              
38             __END__