challenge-084/alexander-pankoff/perl/lib/MatrixParser/Token.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

package MatrixParser::Token;
use strict;
use warnings;
use feature qw(say signatures);
no warnings 'experimental::signatures';

sub new ( $class, $lexeme, $line, $pos ) {

    my $self = [ $lexeme, $line, $pos ];

    return bless $self, $class;
}

sub lexeme($self) {
    $self->[0];
}

sub line($self) {
    $self->[1];
}

sub pos($self) {
    $self->[2];
}

1;