Select Code to Download

package C;

...
    (Perhaps you need to 'use' the module which defines that package f
+irst.)
 at C.pm line 5
BEGIN failed--compilation aborted at C.pm line 5.

package A;
use Spiffy -Base;
use strict;
field $_ for qw(id name);
sub new { bless {}, $self }

package B;
use A -Base;
use strict;
field $_ for qw(addr phone city);
sub new { bless {}, $self }

package C; 
use A -Base;
use strict;
field $_ for qw(model type);
sub new { bless {}, $self }

#!/usr/bin/perl
use strict;
...
  'name' => 'kouxuan',
  'id' => 456
}, 'B' );