1324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruverpackage Test::ANTLR::Runtime::Lexer; 2324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver 3324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruveruse Test::More; 4324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver 5324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruveruse ANTLR::Runtime::ANTLRStringStream; 6324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruveruse ANTLR::Runtime::Lexer; 7324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver 8324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruveruse Moose; 9324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver 10324c4644fee44b9898524c09511bd33c3f12e2dfBen GruverBEGIN { extends 'My::Test::Class' } 11324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver 12324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruversub constructor : Test(1) { 13324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver my $input = ANTLR::Runtime::ANTLRStringStream->new({ input => 'ABC' }); 14324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver my $lexer = ANTLR::Runtime::Lexer->new({ input => $input }); 15324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver ok defined $lexer; 16324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver} 17324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver 18324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruverno Moose; 19324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver__PACKAGE__->meta->make_immutable(inline_constructor => 0); 20324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver1; 21