Claude-Agent-Code-Refactor

 view release on metacpan or  search on metacpan

MANIFEST.SKIP  view on Meta::CPAN

\bblibdirs\.ts$

# Avoid Module::Build generated and target files.
\bBuild$
\b_build/
\bBuild.bat$
\bBuild.COM$
\bBUILD.COM$
\bbuild.com$

# Avoid temp and backup files.
~$
\.old$
\#$
\b\.#
\.bak$
\.tmp$
\.#
\.rej$
\.orig$

lib/Claude/Agent/Code/Refactor/Options.pm  view on Meta::CPAN

BEGIN {
    Object::Proto::define('Claude::Agent::Code::Refactor::Options',
        'max_iterations:Int:default(5)',
        'max_turns_per_fix:Int:default(20)',
        'stop_on_critical:Bool:default(1)',
        'min_severity:Str:default(low)',
        'categories:builder(_build_categories)',
        'fix_one_at_a_time:Bool:default(0)',
        'dry_run:Bool:default(0)',
        'create_backup:Bool:default(0)',
        'perlcritic:default(0)',
        'perlcritic_severity:Int:default(4)',
        'filter_false_positives:Bool:default(1)',
        'model',
        'effort:Str:predicate',
        'permission_mode:Str:default(acceptEdits)',
    );
}

sub _build_categories {

lib/Claude/Agent/Code/Refactor/Options.pm  view on Meta::CPAN

=item * stop_on_critical - Halt if critical issue can't be fixed (default: 1)

=item * min_severity - Minimum severity to fix (default: 'low')

=item * categories - ArrayRef of categories to fix (default: all)

=item * fix_one_at_a_time - Fix issues one at a time vs all at once (default: 0)

=item * dry_run - Preview fixes without applying (default: 0)

=item * create_backup - Backup files before editing (default: 0)

=item * perlcritic - Include perlcritic in review (default: 0)

=item * perlcritic_severity - Perlcritic severity 1-5 (default: 4)

=item * filter_false_positives - Filter AI false positives (default: 1)

=item * model - Claude model to use (default: inherited)

=item * effort - Effort level passed to both the review and the fix: low, medium, high, xhigh or max (optional; C<has_effort> reports whether it was given)

t/01-basic.t  view on Meta::CPAN

    is($opts->max_iterations, 5, 'default max_iterations');
    is($opts->max_turns_per_fix, 20, 'default max_turns_per_fix');
    is($opts->stop_on_critical, 1, 'default stop_on_critical');
    is($opts->min_severity, 'low', 'default min_severity');
    is_deeply($opts->categories,
        ['bugs', 'security', 'style', 'performance', 'maintainability'],
        'default categories');
    is($opts->fix_one_at_a_time, 0, 'default fix_one_at_a_time');
    is($opts->dry_run, 0, 'default dry_run');
    is($opts->create_backup, 0, 'default create_backup');
    is($opts->perlcritic, 0, 'default perlcritic');
    is($opts->perlcritic_severity, 4, 'default perlcritic_severity');
    is($opts->filter_false_positives, 1, 'default filter_false_positives');
    is($opts->permission_mode, 'acceptEdits', 'default permission_mode');
};

subtest 'Options custom values' => sub {
    my $opts = Claude::Agent::Code::Refactor::Options->new(
        max_iterations     => 10,
        max_turns_per_fix  => 30,