package Debug;

use Moose::Role;

has debug_level => (is => 'rw', default => 1);

sub debug {
  my ($self, $level, @msg) = @_;
  if($self->debug_level >= $level) {
    print STDERR join("\n", @msg) . "\n";
  }
}

sub warn {
  my ($self, @msg) = @_;
  $self->debug(1, @msg);
}

1;