perl-module 0.16.0

Perl module resolution, import analysis, and refactoring — unified facade
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

//! Single-line module-import match predicates.
//!
//! Determine whether a source line should be considered a target for
//! module-import rename rewrites.

use crate::boundary::contains_standalone_module_token;
use crate::import::{ModuleImportKind, parse_module_import_head};

/// Return `true` when `line` references `module_name` in an import statement.
///
/// Matching behavior:
/// - `use Module::Name;` and `require Module::Name;` require exact head-token match.
/// - `use parent ...` and `use base ...` use boundary-aware token matching.
/// - Non-import lines return `false`.
#[must_use]
pub fn line_references_module_import(line: &str, module_name: &str) -> bool {
    if line.is_empty() || module_name.is_empty() {
        return false;
    }

    line.split(';').any(|statement| {
        let statement = statement.trim();
        if statement.is_empty() {
            return false;
        }

        let Some(parsed) = parse_module_import_head(statement) else {
            return false;
        };

        match parsed.kind {
            ModuleImportKind::Use | ModuleImportKind::Require => parsed.token == module_name,
            ModuleImportKind::UseParent | ModuleImportKind::UseBase => {
                contains_standalone_module_token(statement, module_name)
            }
        }
    })
}