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   9210 use strict;
  15         59  
  15         533  
4 15     15   100 use warnings;
  15         41  
  15         472  
5 15     15   91 use base 'DBIx::Class::Schema::Loader::RelBuilder';
  15         40  
  15         1895  
6 15     15   128 use mro 'c3';
  15         45  
  15         180  
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.07050';
21              
22             sub _strip_id_postfix {
23 683     683   2295 my ($self, $name) = @_;
24              
25 683         2548 $name =~ s/_id\z//;
26              
27 683         2337 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: