File: lib/App/GHGen/PerlCustomizer.pm

lib/App/GHGen/PerlCustomizer.pm

Structural Coverage (Approximate)

TER1 (Statement): 100.00%
TER2 (Branch): 91.67%
TER3 (LCSAJ): 100.0% (11/11)
Approximate LCSAJ segments: 25

LCSAJ Legend

● Covered — this LCSAJ path was executed during testing.

● Not covered — this LCSAJ path was never executed. These are the paths to focus on.

Multiple dots on a line indicate that multiple control-flow paths begin at that line. Hovering over any dot shows:

        start → end → jump

start – first line of the linear sequence
end – last line before control flow changes
jump – line execution jumps to next

Uncovered paths show [NOT COVERED] in the tooltip.

Mutant Testing Legend

Survived (tests missed this) Killed (tests detected this) No mutation

1: package App::GHGen::PerlCustomizer; 2: 3: use v5.36; 4: use strict; 5: use warnings; 6: 7: use Path::Tiny; 8: 9: use Exporter 'import'; 10: our @EXPORT_OK = qw( 11: detect_perl_requirements 12: generate_custom_perl_workflow 13: ); 14: 15: our $VERSION = '0.10'; 16: 17: =encoding utf-8 18: 19: =head1 NAME 20: 21: App::GHGen::PerlCustomizer - Customize Perl workflows based on project requirements 22: 23: =head1 SYNOPSIS 24: 25: use App::GHGen::PerlCustomizer qw(detect_perl_requirements); 26: 27: my $requirements = detect_perl_requirements(); 28: # Returns: { min_version => '5.036', has_cpanfile => 1, ... } 29: 30: =head1 FUNCTIONS 31: 32: =head2 detect_perl_requirements() 33: 34: Detect Perl version requirements and dependency-file presence in the current directory. 35: 36: =head3 Purpose 37: 38: Inspect the current working directory for common Perl distribution files 39: (C<cpanfile>, C<Makefile.PL>, C<dist.ini>, C<Build.PL>) and extract the 40: minimum Perl version declared in any of them. 41: 42: =head3 Arguments 43: 44: None. 45: 46: =head3 Returns 47: 48: A hash reference with the following keys, all of which are always present: 49: 50: { 51: min_version => Str | undef, # e.g. '5.036'; undef when undetected 52: has_cpanfile => Bool, 53: has_makefile_pl => Bool, 54: has_dist_ini => Bool, 55: has_build_pl => Bool, 56: } 57: 58: =head3 Side Effects 59: 60: Reads files from the current working directory. 61: 62: =head3 Usage Example 63: 64: use App::GHGen::PerlCustomizer qw(detect_perl_requirements); 65: my $reqs = detect_perl_requirements(); 66: say $reqs->{min_version} // 'not specified'; 67: 68: =head3 API SPECIFICATION 69: 70: =head4 Input 71: 72: # No parameters. 73: 74: =head4 Output 75: 76: { 77: type => 'hashref', 78: keys => { 79: min_version => { type => 'scalar', optional => 1 }, 80: has_cpanfile => { type => 'scalar' }, 81: has_makefile_pl => { type => 'scalar' }, 82: has_dist_ini => { type => 'scalar' }, 83: has_build_pl => { type => 'scalar' }, 84: }, 85: } 86: 87: =head3 FORMAL SPECIFICATION 88: 89: detect_perl_requirements : â†’ Requirements 90: 91: Requirements â‰” { 92: min_version: â„¤* âˆª { âŠ¥ }, 93: has_cpanfile: ð”¹, 94: has_makefile_pl: ð”¹, 95: has_dist_ini: ð”¹, 96: has_build_pl: ð”¹, 97: } 98: 99: min_version â‰” 100: cpanfile exists âˆ§ version parseable from cpanfile â†’ version 101: Makefile.PL exists âˆ§ MIN_PERL_VERSION parseable â†’ version 102: otherwise â†’ âŠ¥ 103: 104: =cut 105: 106: sub detect_perl_requirements() { ●107 → 122 → 129 107: my %reqs = ( 108: min_version => undef, 109: has_cpanfile => 0, 110: has_makefile_pl => 0, 111: has_dist_ini => 0, 112: has_build_pl => 0, 113: ); 114: 115: # Check for dependency files 116: $reqs{has_cpanfile} = path('cpanfile')->exists; 117: $reqs{has_makefile_pl} = path('Makefile.PL')->exists; 118: $reqs{has_dist_ini} = path('dist.ini')->exists; 119: $reqs{has_build_pl} = path('Build.PL')->exists; 120: 121: # Try to detect minimum Perl version