intro-to-oop-perl

My introduction to Object-Oriented Programming using Perl
git clone git://git.samirparikh.com/intro-to-oop-perl
Log | Files | Refs | README

check_provisions.pl (498B) - raw

      1 use lib '.';
      2 use strict;
      3 use warnings;
      4 use Passenger;
      5 
      6 Passenger->define_required_items (
      7     qw(preserver sunscreen water_bottle jacket)
      8 );
      9 
     10 my $skipper = Passenger->new (
     11     name => 'Skipper',
     12 );
     13 
     14 $skipper->provision(
     15     qw(blue_shirt hat jacket preserver sunscreen)
     16 );
     17 
     18 print $skipper->get_name(), " has the following items:\n";
     19 $skipper->print_provisions();
     20 
     21 $skipper->check_required_provisions();
     22 
     23 print $skipper->get_name(), " now has the following items:\n";
     24 $skipper->print_provisions();