File Coverage

blib/lib/KiokuDB/TypeMap/Entry/Alias.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2              
3             package KiokuDB::TypeMap::Entry::Alias;
4 28     28   463 use Moose;
  28         43  
  28         156  
5              
6 28     28   133712 use namespace::clean -except => 'meta';
  28         58  
  28         202  
7              
8             has to => (
9             isa => "Str",
10             is => "ro",
11             required => 1,
12             );
13              
14             __PACKAGE__->meta->make_immutable;
15              
16             __PACKAGE__
17              
18             __END__
19              
20             =pod
21              
22             =head1 NAME
23              
24             KiokuDB::TypeMap::Entry::Alias - An alias in the typemap to another entry
25              
26             =head1 SYNOPSIS
27              
28             my $typemap = KiokuDB::TypeMap->new(
29             entries => {
30             'Some::Class' => KiokuDB::TypeMap::Entry::Alias->new(
31             to => "Some::Other::Class",
32             ),
33             'Some::Other::Class' => ...,
34             },
35             );
36              
37             =head1 DESCRIPTION
38              
39             This pseudo-entry directs the typemap resolution to re-resolve with the key in
40             the C<to> field.