File Coverage

blib/lib/OpusVL/Preferences/RolesFor/Schema.pm
Criterion Covered Total %
statement 3 5 60.0
branch n/a
condition n/a
subroutine 1 2 50.0
pod 1 1 100.0
total 5 8 62.5


line stmt bran cond sub pod time code
1             package OpusVL::Preferences::RolesFor::Schema;
2              
3              
4 1     1   17294 use Moose::Role;
  1         3895  
  1         4  
5              
6             sub setup_preferences_schema
7             {
8 0     0 1   my $package = shift;
9 0           $package->load_namespaces(
10             result_namespace => '+OpusVL::Preferences::Schema::Result',
11             resultset_namespace => '+OpusVL::Preferences::Schema::ResultSet',
12             );
13             }
14              
15              
16              
17             1;
18              
19             __END__
20              
21             =pod
22              
23             =encoding UTF-8
24              
25             =head1 NAME
26              
27             OpusVL::Preferences::RolesFor::Schema
28              
29             =head1 VERSION
30              
31             version 0.27
32              
33             =head1 SYNOPSIS
34              
35             This allows for our preferences to be inserted into an existing schema and make use of the existing
36             connection details.
37              
38             # in your schema class.
39             with 'OpusVL::Preferences::RolesFor::Schema';
40             __PACKAGE__->setup_preferences_schema;
41              
42             =head1 METHODS
43              
44             =head2 setup_preferences_schema
45              
46             =head1 LICENSE AND COPYRIGHT
47              
48             Copyright 2012 OpusVL.
49              
50             This software is licensed according to the "IP Assignment Schedule" provided with the development project.
51              
52             =head1 AUTHOR
53              
54             OpusVL - www.opusvl.com
55              
56             =head1 COPYRIGHT AND LICENSE
57              
58             This software is copyright (c) 2011 by OpusVL - www.opusvl.com.
59              
60             This is free software; you can redistribute it and/or modify it under
61             the same terms as the Perl 5 programming language system itself.
62              
63             =cut