package Catalyst::Log;
-use strict;
-#use base 'Class::Accessor::Fast';
+use Moose;
use Data::Dump;
our %LEVELS = ();
-use Moose;
-
has level => (is => 'rw');
has _body => (is => 'rw');
has abort => (is => 'rw');
-#__PACKAGE__->mk_accessors('level');
-#__PACKAGE__->mk_accessors('body');
-#__PACKAGE__->mk_accessors('abort');
-
{
my @levels = qw[ debug info warn error fatal ];
}
}
-sub new {
+around new => sub {
+ my $orig = shift;
my $class = shift;
- my $self = $class->SUPER::new;
+ my $self = $class->$orig;
$self->levels( scalar(@_) ? @_ : keys %LEVELS );
return $self;
-}
+};
sub levels {
my ( $self, @levels ) = @_;
=cut
+__PACKAGE__->meta->make_immutable;
+
1;