File Coverage

blib/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_07.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package DBIx::Class::Schema::Loader::RelBuilder::Compat::v0_07;
2              
3 46     46   48251 use strict;
  46         520  
  46         2540  
4 46     46   322 use warnings;
  46         456  
  46         3167  
5 46     46   377 use base 'DBIx::Class::Schema::Loader::RelBuilder';
  46         113  
  46         8310  
6 46     46   360 use mro 'c3';
  46         114  
  46         719  
7              
8             =head1 NAME
9              
10             DBIx::Class::Schema::Loader::RelBuilder::Compat::v0_07 - RelBuilder for
11             compatibility with DBIx::Class::Schema::Loader version 0.07000
12              
13             =head1 DESCRIPTION
14              
15             See L and
16             L.
17              
18             =cut
19              
20             our $VERSION = '0.07053';
21              
22             sub _strip_id_postfix {
23 729     729   2576 my ($self, $name) = @_;
24              
25 729         3777 $name =~ s/_id\z//;
26              
27 729         2567 return $name;
28             }
29              
30             =head1 AUTHORS
31              
32             See L.
33              
34             =head1 LICENSE
35              
36             This library is free software; you can redistribute it and/or modify it under
37             the same terms as Perl itself.
38              
39             =cut
40              
41             1;
42             # vim:et sts=4 sw=4 tw=0: