#!/usr/bin/perl

use strict;
use warnings;
use Benchmark qw(cmpthese);
use AddressA;
use AddressB;

my $zip = 12345;

cmpthese (-5,
                {
                 A => sub { AddressA->new(zip_code => $zip);},
                 B => sub { AddressB->new(zip_code => $zip);}
                }
         );

exit;