cpan/dist/Rcs/examples/test3.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/local/bin/perl -w

use strict;
use lib '.';
use Rcs;

my $p = new Rcs();
my $n = new Rcs();

my $m = new Rcs();
$m->workdir("foo");

Rcs->workdir("bar");

print $p->workdir, "\n";
print $n->workdir, "\n";
print $m->workdir, "\n";