perl-module-token-parser 0.12.1

Parse Perl module tokens at a cursor offset for import/reference workflows
Documentation 
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

use perl_module_token_parser::{ModuleTokenSpan, parse_module_token};

#[test]
fn handles_simple_canonical_module_tokens() {
    let line = "use Foo::Bar;";
    assert_eq!(parse_module_token(line, 4), Some(ModuleTokenSpan { start: 4, end: 12 }));
}

#[test]
fn handles_legacy_quote_separator_tokens() {
    let line = "use Foo'Bar;";
    assert_eq!(parse_module_token(line, 4), Some(ModuleTokenSpan { start: 4, end: 11 }));
}

#[test]
fn rejects_non_identifier_starts() {
    assert!(parse_module_token("  42Foo", 0).is_none());
    assert!(parse_module_token("use Foo::", 4).is_none());
    assert!(parse_module_token("use Foo'", 4).is_none());
}

#[test]
fn handles_multiple_segments() {
    let line = "require App::Config::Loader;";
    assert_eq!(parse_module_token(line, 8), Some(ModuleTokenSpan { start: 8, end: 27 }));
}