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 15     15   9427 use strict;
  15         56  
  15         587  
4 15     15   114 use warnings;
  15         39  
  15         464  
5 15     15   117 use base 'DBIx::Class::Schema::Loader::RelBuilder';
  15         40  
  15         1857  
6 15     15   135 use mro 'c3';
  15         49  
  15         162  
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.07051';
21              
22             sub _strip_id_postfix {
23 683     683   2023 my ($self, $name) = @_;
24              
25 683         2477 $name =~ s/_id\z//;
26              
27 683         2124 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: