#!/usr/bin/perl -w

package Mod3;

use strict;
use warnings;
use Mod2;

require Exporter;

our $VERSION = '0.1000';
our @ISA = qw/Exporter/;
our @EXPORT_OK = qw (triple fourtimes);

sub triple { return 3 * shift}
sub fourtimes {
	my $val = Mod2::double(shift);
	return Mod2::double($val);
}