File: testfile_2.pm

package info (click to toggle)
libdevel-refactor-perl 0.05-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 132 kB
  • sloc: perl: 520; makefile: 2
file content (21 lines) | stat: -rwxr-xr-x 426 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
# $Header: $
#
# This file is fodder for various Devel::Refactor tests
###############################################################################

package MyClass;
use strict;
use warnings;

sub new {
    my ($class,@args) = @_;
    my $self = {};
    $class = ref $class ? ref $class : $class;
    bless $self, $class;
    $self->oldSub(@args);
}

sub oldSub {
    my $self = shift;
    $self->{values} = join ',', @_;
}