package pizzle;

use Moose;

my $self;

# Package Attributes
has 'class_ver' => ( is      => 'rw',
                     isa     => 'Str',
                     default => '10.5.1'
                   );

# Required Attributes
has 'site' => ( is       => 'rw',
                isa      => 'Str',
                required => 1
              );

# Directory Attributes
has 'Dbase'     => ( is        => 'rw',
                     isa       => 'Str',
                     default   => '/willy/wonka',
                     lazy      => 1,
                     predicate => 'has_Dbase'
                   );
has 'Dbin'      => ( is        => 'rw',
                     isa       => 'Str',
                     default   => $self->{Dbase}.'/come/on/now',
                     lazy      => 1,
                     predicate => 'has_Dbin'
                   );