#!/usr/bin/perl

use strict;
use warnings;

my $red = Apple->new( color => 'green'  );
my $yel = Apple->new( color => 'yellow' );

$red->color( 'red' ); # It got ripe.

my $foo = Orange->new();
my $baz = Orange->new( apple => $red ); 

for my $obj ( $red, $yel, $foo, $baz ) {
    print 'served: ', $obj->serve, "\n";
}

print "\n fruit stand: \n",
    map $_->dump, $red, $yel, $foo, $baz;


BEGIN {
    package Apple;

    use Moose;
    use namespace::autoclean;

    has 'color' => (
        is => 'rw',
        isa => 'Str',
    );

    sub serve {
        return 'sliced';
    }

    __PACKAGE__->meta->make_immutable;
    1;
}

BEGIN {
    package Orange;

    use Moose;
    use namespace::autoclean;

    has 'apple' => (
        is => 'ro',
        isa => 'Apple',
        predicate => 'has_apple',
    );

    has 'shape' => (
        is => 'ro',
        isa => 'Str',
    );

    sub serve {
        my $self = shift;
        return $self->has_apple 
             ? $self->apple->serve() 
             : 'squeezed';
    }

    __PACKAGE__->meta->make_immutable;
    1;
}