use lib '.'; use strict; use warnings; use Passenger; Passenger->define_required_items ( qw(preserver sunscreen water_bottle jacket) ); my $skipper = Passenger->new ( name => 'Skipper', ); $skipper->provision( qw(blue_shirt hat jacket preserver sunscreen) ); print $skipper->get_name(), " has the following items:\n"; $skipper->print_provisions(); $skipper->check_required_provisions(); print $skipper->get_name(), " now has the following items:\n"; $skipper->print_provisions();