perl-parser-core 0.13.1

Core parser engine for perl-parser
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93

#[cfg(test)]
mod tests {
    use crate::parser::Parser;
    use perl_tdd_support::must;

    #[test]
    fn test_indirect_method_call() {
        let code = r#"
my $method = "print";
my $object = "hello";
$method $object;
"#;
        let mut parser = Parser::new(code);
        let result = parser.parse();
        assert!(result.is_ok(), "Failed to parse indirect method call");

        let ast = must(result);
        let _sexp = ast.to_sexp();
        // Should parse as variable followed by variable if not detected as indirect call,
        // OR as indirect call if our heuristics match.
        // However, `$method $object` is NOT valid indirect syntax because method name must be bareword.
        // It's actually a syntax error in strict Perl unless $method is a coderef.
        // But our parser might see it as two expression statements or something else.

        // Let's test valid indirect call: method name is bareword
        let code_valid = "print $object 'arg';";
        let mut parser_valid = Parser::new(code_valid);
        let result_valid = parser_valid.parse();
        assert!(result_valid.is_ok());
        let ast_valid = must(result_valid);
        let sexp_valid = ast_valid.to_sexp();
        // Should be parsed as indirect call
        assert!(
            sexp_valid.contains("indirect_call"),
            "Should detect indirect call in: {}",
            sexp_valid
        );
    }

    #[test]
    fn test_indirect_constructor() {
        let code = "new MyClass($arg);";
        let mut parser = Parser::new(code);
        let result = parser.parse();
        assert!(result.is_ok());

        let ast = must(result);
        let sexp = ast.to_sexp();
        assert!(sexp.contains("indirect_call"), "Should detect indirect constructor in: {}", sexp);
    }

    #[test]
    fn test_arrow_dereference() {
        let code = "$ref->{key};";
        let mut parser = Parser::new(code);
        let result = parser.parse();
        assert!(result.is_ok());

        let ast = must(result);
        let sexp = ast.to_sexp();
        // Should be binary operation, NOT indirect call
        assert!(
            !sexp.contains("indirect_call"),
            "Arrow deref should not be indirect call in: {}",
            sexp
        );
    }

    #[test]
    fn test_ambiguous_print() {
        // print $x, $y -> print($x, $y) (not indirect)
        let code_direct = "print $x, $y;";
        let mut parser = Parser::new(code_direct);
        let ast = must(parser.parse());
        let sexp = ast.to_sexp();
        assert!(
            !sexp.contains("indirect_call"),
            "Comma should prevent indirect call detection: {}",
            sexp
        );

        // print $fh $x -> print($fh, $x) (indirect)
        let code_indirect = "print $fh $x;";
        let mut parser2 = Parser::new(code_indirect);
        let ast2 = must(parser2.parse());
        let sexp2 = ast2.to_sexp();
        assert!(
            sexp2.contains("indirect_call"),
            "Should detect indirect print to filehandle: {}",
            sexp2
        );
    }
}