package Car::Engine;
use 5.010;
use Moose;
use strict;
use warnings;

has [qw(cylinder rpm fuel)] {
    is  => 'rw',
    isa => 'Int',
}

sub get_rpm { 
    my $self = shift;
    my $curr_rpm = $self->rpm / $self->cylinder;
}

package Car;
use 5.010;
use Moose;
use strict;
use warnings;

has [qw(engine_cylinder engine_rpm engine_fuel)] => (
    is => 'rw',
    isa => 'Int',
);

has engine => (
    is  => 'rw',
    isa => 'Car::Engine',
    default => {
        Car::Engine->new(
            cylinder => $_[0]->engine_cylinder,
            rpm      => $_[0]->engine_rpm,
            fuel     => $_[0]->engine_rpm,
        );
    },
    handles => {
        get_rpm => 'get_rpm',
    }
);

package main;
use 5.010;
use strict;
use warnings;

my $car = Car->new( 
    engine_cylinder => '8',
    engine_rpm      => '8000',
    engine_fuel     => '1000',
);

say $car->get_rpm;