Sample "dupe code detection" in DBIx::Class

gistfile1.pl

#Possible match (lib/DBIx/Class/ResultSet.pm near line 936) (lib/DBIx/Class/Relationship/Base.pm near line 512)
#Begining at:
}                                                                 | }
sub search_related {                                              | sub search_related {
    return shift(@_)->related_resultset(shift @_)->search(@_);    |     return shift(@_)->related_resultset(shift @_)->search(@_);
}                                                                 | }
sub search_related_rs {                                           | sub search_related_rs {
    return shift(@_)->related_resultset(shift @_)->search_rs(@_); |     return shift(@_)->related_resultset(shift @_)->search_rs(@_);
}                                                                 | }
#Possible match (lib/DBIx/Class/ResultSet.pm near line 1584) (lib/DBIx/Class/Storage/DBIHacks.pm near line 359)
#Begining at:
            local $$sql_maker{'having_bind'};                                                                 |     local $$sql_maker{'having_bind'};
            local $$sql_maker{'quote_char'} = $$sql_maker{'quote_char'};                                      |     local $$sql_maker{'quote_char'} = $$sql_maker{'quote_char'};
            local $$sql_maker{'name_sep'} = $$sql_maker{'name_sep'};                                          |     local $$sql_maker{'name_sep'} = $$sql_maker{'name_sep'};
            unless (defined $$sql_maker{'quote_char'} and length $$sql_maker{'quote_char'}) {                 |     unless (defined $$sql_maker{'quote_char'} and length $$sql_maker{'quote_char'}) {
                $$sql_maker{'quote_char'} = ["\000", "\377"];                                                 |         $$sql_maker{'quote_char'} = ["\000", "\377"];
                $$sql_maker{'name_sep'} = '';                                                                 |         $$sql_maker{'name_sep'} = '';
            }                                                                                                 |     }
            my($lquote, $rquote, $sep) = map({quotemeta $_;} $sql_maker->_quote_chars, $sql_maker->name_sep); |     my($lquote, $rquote, $sep) = map({quotemeta $_;} $sql_maker->_quote_chars, $sql_maker->name_sep);
#Possible match (lib/DBIx/Class/Storage/DBI/MSSQL.pm near line 209) (lib/DBIx/Class/Storage/DBI/ADO/Microsoft_SQL_Server.pm near line 427)
#Begining at:
sub parse_datetime {                                                                                          | sub parse_datetime {
    shift @_;                                                                                                 |     shift @_;
    $datetime_parser ||= 'DateTime::Format::Strptime'->new('pattern', $datetime_format, 'on_error', 'croak'); |     $datetime_parser ||= 'DateTime::Format::Strptime'->new('pattern', $datetime_format, 'on_error', 'croak');
    return $datetime_parser->parse_datetime(shift @_);                                                        |     return $datetime_parser->parse_datetime(shift @_);
}                                                                                                             | }
sub format_datetime {                                                                                         | sub format_datetime {
    shift @_;                                                                                                 |     shift @_;
    $datetime_parser ||= 'DateTime::Format::Strptime'->new('pattern', $datetime_format, 'on_error', 'croak'); |     $datetime_parser ||= 'DateTime::Format::Strptime'->new('pattern', $datetime_format, 'on_error', 'croak');
    return $datetime_parser->format_datetime(shift @_);                                                       |     return $datetime_parser->format_datetime(shift @_);
}                                                                                                             | }
#Possible match (lib/DBIx/Class/Storage/DBI/MSSQL.pm near line 208) (lib/DBIx/Class/Storage/DBI/ADO/MS_Jet.pm near line 132)
#Begining at:
sub parse_datetime {                                                                                          | sub parse_datetime {
    shift @_;                                                                                                 |     shift @_;
    $datetime_parser ||= 'DateTime::Format::Strptime'->new('pattern', $datetime_format, 'on_error', 'croak'); |     $datetime_parser ||= 'DateTime::Format::Strptime'->new('pattern', $datetime_format, 'on_error', 'croak');
    return $datetime_parser->parse_datetime(shift @_);                                                        |     return $datetime_parser->parse_datetime(shift @_);
}                                                                                                             | }
sub format_datetime {                                                                                         | sub format_datetime {
    shift @_;                                                                                                 |     shift @_;
    $datetime_parser ||= 'DateTime::Format::Strptime'->new('pattern', $datetime_format, 'on_error', 'croak'); |     $datetime_parser ||= 'DateTime::Format::Strptime'->new('pattern', $datetime_format, 'on_error', 'croak');
    return $datetime_parser->format_datetime(shift @_);                                                       |     return $datetime_parser->format_datetime(shift @_);
}