#!/usr/bin/perl
package Foo;
use Class::FIOC;
use strict;
my $nextid=1;
sub new {
  my $class = shift;
  my %args = @_;
  my $first = $args{first} || "unknown";
  my $surname = $args{surname} || "unknown";
  my $id = $nextid++;
  methods {

    fullname=>sub {
      return "$first $surname";
    },

    surname=>sub{
      if (@_==2) {
        $surname = pop;
      }
      return $surname;
    },

    first=>sub {
      if (@_==2) {
        $first=pop;
      }
      return $first;
    },

    id=>sub{
      return $id;
    },

    debug=>sub{
      print "First = $first\nSurname=$surname\nID=$id\n\n";
    }
  };

}

my $foo = new Foo(first=>"Fred",surname=>"Flintstone");
print $foo->first."\n";
print $foo->surname."\n";
print $foo->id."\n";
print $foo->fullname."\n";
$foo->debug;
$foo = new Foo(first=>"Barney",surname=>"Rubble");
print $foo->first."\n";
print $foo->surname."\n";
print $foo->id."\n";
print $foo->fullname."\n";
$foo->debug;