# $Id: P4.pm 198 2007-02-28 18:45:18Z fil $
package t::P4;
use strict;

use vars qw( @ISA );

@ISA = 'P1';

sub in4 {}

1;
__END__