NAME

Code::CutNPaste::Duplicate - Possible duplicate code

SYNOPSIS

my $duplicate = Code::CutNPaste::Duplicate->new(
    left => Code::CutNPaste::Duplicate::Item->new(
        file => $filename_left,
        line => $line_number_left,
        code => $text_of_code_left,
    },
    right => Code::CutNPaste::Duplicate::Item->new(
        file => $filename_right,
        line => $line_number_right,
        code => $text_of_code_right,
    },
    report => $code_to_report.
);

DESCRIPTION

This is merely a simple object to report possibly duplicated code. For internal use only.

VERSION

0.31

METHODS

left

The first Code::CutNPaste::Duplicate::Item which may contain duplicate code.

right

The second Code::CutNPaste::Duplicate::Item which may contain duplicate code.

report

A nicely formatted left/right comparison of possibly duplicated code. For example:

sub add_line_numbers {                                                                          | sub provide_line_numbers {
    my $contents = prefilter(shift @_);                                                         |     my $lines = prefilter(shift @_);
    my $with_varnames = prefilter(shift @_);                                                    |     my $lines_orig = prefilter(shift @_);
    my @contents;                                                                               |     my @contents;
    my $line_num = 1;                                                                           |     my $line_num = 1;
    foreach my $i (0 .. $#$contents) {                                                          |     foreach my $i (0 .. $#$lines) {
        my($line, $line_with_vars) = ($$contents[$i], $$with_varnames[$i]);                     |         my($line, $line_with_vars) = ($$lines[$i], $$lines_orig[$i]);
        chomp $line_with_vars;                                                                  |         chomp $line_with_vars;
        if ($line =~ /^#line\s+([0-9]+)/) {                                                     |         if ($line =~ /^#line\s+([0-9]+)/) {
            $line_num = $1;                                                                     |             $line_num = $1;
            next;                                                                               |             next;
        }                                                                                       |         }
        push @contents, {'line', $line_num, 'key', munge_line($line), 'code', $line_with_vars}; |         push @contents, {'line', $line_num, 'key', munge_line($line), 'code', $line_with_vars};
        ++$line_num;                                                                            |         ++$line_num;
    }                                                                                           |     }
    return postfilter(\@contents);                                                              |     return postfilter(\@contents);
}                                                                                               | }