File: no_context_named_capture.t

package info (click to toggle)
libregexp-grammars-perl 1.058-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 1,328 kB
  • sloc: perl: 53,328; makefile: 2
file content (20 lines) | stat: -rw-r--r-- 289 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
use 5.010;

use Test::More;
plan tests => 1;

use Regexp::Grammars;

my $parser = qr/

     <name>

     <token: name>
         <nocontext:>
         <word=(\w+)>

/x;

"alex" =~ $parser;

is_deeply \%/, { '' => 'alex', 'name' => { 'word' => 'alex' } }  => 'Nocontext with named capture';