#!/usr/bin/perl -w

use strict;
use Package::System::Foo;
use Data::Dumper;

my $foo = Package::System::Foo->new();
$foo->start();
print Dumper $foo;

##</code><code>##

package Package::System::Foo;

use Moose;

extends 'Package::Contol::Base::Daemon::Server';

use Package::System::Config;

has 'CONFIG' => (is=>'rw',isa=>'Object'); # OR I tried isa=>'Any'

sub _init{
  my $self = shift;
  $self->CONFIG(Package::System::Config->new());
  #not executing after that
}

sub start{
  my $self = shift;
  $self->_init();
  # not executing after _init()
  .........
}
1;

##</code><code>##

package Package::Contol::Base::Daemon::Server;

use Moose;

has 'DAEMON' => (is=>rw,isa=>'Object');
1;