use strict;
use warnings;
use Data::TreeDumper;

use Log::Dispatch::FileRotate;

my $file = Log::Dispatch::FileRotate->new(
   name      => 'file1',
   min_level => 'info',
   filename  => 'Somefile.log',
   mode      => 'append' ,
   size      => 10,
   max       => 6,
);

print DumpTree($file);

sub min_level{
    sub ($self,$min) = @_;

    $self->{params}->{min_level} = $min if defined $min;
    return $self->{params}->{min_level};
}

sub max_level{
    sub ($self,$max) = @_;

    $self->{params}->{max_level} = $max if defined $max;
    return $self->{params}->{max_level};
}

$file->min_level($new_min_level);
$file->max_level($new_max_level);

sub min_level{
    sub ($self,$min) = @_;
    $self->{min_level} = $min if defined $min;
    return $self->{min_level};
}

sub max_level{
    sub ($self,$max) = @_;
    $self->{max_level} = $max if defined $max;
    return $self->{max_level};
}

$file->min_level($new_min_level);
$file->max_level($new_max_level);

sub min_level{
    sub ($self,$min) = @_;
    $self->{min_level} = $min if defined $min;
    return $self->{min_level};
}

sub max_level{
    sub ($self,$max) = @_;
    $self->{max_level} = $max if defined $max;
    return $self->{params}->{max_level};
}