File Coverage

blib/lib/TOON/Error.pm

Criterion	Covered	Total	%
statement	17	33	51.5
branch			n/a
condition	4	8	50.0
subroutine	5	9	55.5
pod	6	6	100.0
total	32	56	57.1

package TOON::Error;

use v5.40;
use feature 'signatures';
use overload '""' => 'as_string', fallback => 1;

our $VERSION = '0.1.0';

sub new ($class, %args) {
  return bless {
    message => $args{message} // 'Unknown TOON error',
    line    => $args{line}    // 1,
    column  => $args{column}  // 1,
    offset  => $args{offset}  // 0,
  }, $class;
}

sub message ($self) { return $self->{message} }
sub line    ($self) { return $self->{line} }
sub column  ($self) { return $self->{column} }
sub offset  ($self) { return $self->{offset} }

sub as_string ($self, @) {
  return sprintf '%s at line %d, column %d',
    $self->{message}, $self->{line}, $self->{column};
}

1;

__END__