package My::Base;
use strict;
use Moose;
use Config::YAML;
use YAML::Node;

use Log::Dispatch::Syslog;

has 'configfile' => (isa => 'Str', is => 'rw');
has 'config' => (isa => 'Config::YAML', is => 'rw');
has 'logger' => (isa => 'Log::Dispatch::Syslog', is => 'rw');

sub BUILD {
    my $self = shift;
    $self->logger(Log::Dispatch::Syslog->new(
		      name => 'My::Base',
		      min_level => 'debug',
		      ident => 'My::Base',
		      facility => 'user'
		  ));
    return $self;
}
1