File Coverage

blib/lib/Data/Sah/Filter/perl/Str/remove_comment.pm

Criterion	Covered	Total	%
statement	8	16	50.0
branch	0	4	0.0
condition	0	4	0.0
subroutine	3	5	60.0
pod	0	2	0.0
total	11	31	35.4

package Data::Sah::Filter::perl::Str::remove_comment;

use 5.010001;
use strict;
use warnings;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-07-17'; # DATE
our $DIST = 'Data-Sah-Filter'; # DIST
our $VERSION = '0.025'; # VERSION

sub meta {
    +{
        v => 1,
        summary => 'Remove comment',
        args => {
            style => {
                schema => ['str*', in=>['shell', 'cpp']],
                default => 'shell',
            },
        },
        examples => [
            {value=>"foo"},
            {value=>"foo # comment", filtered_value=>"foo"},
            {value=>"foo # comment", filter_args=>{style=>"cpp"}},
            {value=>"foo // comment", filter_args=>{style=>"cpp"}, filtered_value=>"foo"},
        ],
    };
}

sub filter {
    my %fargs = @_;

    my $dt = $fargs{data_term};
    my $gen_args = $fargs{args} // {};
    $gen_args->{style} //= 'shell';

    my $res = {};
    $res->{expr_filter} = join(
        "",
        "do { ", (
            "my \$tmp = $dt; ",
            ($gen_args->{style} eq 'shell' ? "\$tmp =~ s/\\s*#.*//g; " :
             $gen_args->{style} eq 'cpp' ? "\$tmp =~ s!\\s*//.*!!g; " :
             die "Unknown style '$gen_args->{style}'"),
            "\$tmp ",
        ), "}",
    );

    $res;
}

1;
# ABSTRACT: Remove comment

__END__