package Catalyst::Log;
-use strict;
-#use base 'Class::Accessor::Fast';
+use Class::C3;
+use Moose;
use Data::Dump;
our %LEVELS = ();
-use Moose;
-
has level => (is => 'rw');
-has _body => (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 {
my $class = shift;
- my $self = $class->SUPER::new;
+ my $self = $class->next::method;
$self->levels( scalar(@_) ? @_ : keys %LEVELS );
return $self;
}
print STDERR @_;
}
+no Moose;
+__PACKAGE__->meta->make_immutable();
+
1;
__END__
=cut
+__PACKAGE__->meta->make_immutable;
+
1;