Acme-Comment

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

    $start \$two = 3; $start \$two = 4;
    $end \$two = 5; $end

    ### Check Test 2 ###
    is(\$two, 2, "$type => $what: Nested Multiline");



    ### Test 3 ###
    eval {
        $start this should break
        $end
        1;
    };

    ### Check 3 ###
    ok(!\$@, "$type => $what: Broken Syntax Ignored Multiline");
}
HERE

Makefile.PL  view on Meta::CPAN

    ### Test 5 ###
    my \$five = 5;

    $start \$five = 7; $start \$five = 8; $end \$five = 9; $end

    ### Check Test 5 ###
    is(\$five, 5, "$type => $what: Nested Multiline");


    ### Test 6 ###
    eval {
        $start this should break $end
        1;
    };

    ### Check 6 ###
    ok(!\$@, "$type => $what: Broken Syntax Ignored Multiline");
}
HERE
                } }

Makefile.PL  view on Meta::CPAN

    $start
        \$eight = 10;
    $end
    \$eight = 11;
$end

### Check Test 8 ###
is(\$eight, 8, "$type => $what: Nested Multiline");

### Test 9 ###
eval {
    $start
        this should break
    $end
    1;
};

### Check 9 ###
ok(!\$@, "$type => $what: Broken Syntax Ignored Multiline");

HERE

lib/Acme/Comment.pm  view on Meta::CPAN

Acme::Comment

=head1 SYNOPSIS

    use Acme::Comment type=>'C++', own_line=>1;

    /*
    if (ref $mod) {
        $bar->{do}->blat(msg => 'blarg');
        eval {

    i'm sooo sick of this time for some coffee

    */

    // I prefer beer.  --sqrn

=head1 DESCRIPTION

Acme::Comment allows multi-line comments which are filtered out.

lib/Acme/Comment.pm  view on Meta::CPAN

Single-line comments use C<#>.

=item * Var'aq

Multi-line comments use C<(*> and C<*)>.

=back

=head1 CAVEATS

Because of the way source filters work, it is not possible to eval
code containing comments and have them correctly removed.

=head1 NOTE

Some of these programming languages may be spelled incorrectly, or
may have the wrong quote characters noted.  The majority of this
information was found by searches for language specifications.

So please report errors, as well as obscure commenting syntax you
know of.

t/ALGOL-one_line_0-own_line_1.t  view on Meta::CPAN

    'comment'
        $eight = 10;
    ;
    $eight = 11;
;

### Check Test 8 ###
is($eight, 8, "ALGOL => own_line: 1, one_line: 0: Nested Multiline");

### Test 9 ###
eval {
    'comment'
        this should break
    ;
    1;
};

### Check 9 ###
ok(!$@, "ALGOL => own_line: 1, one_line: 0: Broken Syntax Ignored Multiline");

t/ALGOL-one_line_1-own_line_1.t  view on Meta::CPAN

    ### Test 5 ###
    my $five = 5;

    'comment' $five = 7; 'comment' $five = 8; ; $five = 9; ;

    ### Check Test 5 ###
    is($five, 5, "ALGOL => own_line: 1, one_line: 1: Nested Multiline");


    ### Test 6 ###
    eval {
        'comment' this should break ;
        1;
    };

    ### Check 6 ###
    ok(!$@, "ALGOL => own_line: 1, one_line: 1: Broken Syntax Ignored Multiline");
}
### Test 7 ###
my $seven = 7;

t/ALGOL-one_line_1-own_line_1.t  view on Meta::CPAN

    'comment'
        $eight = 10;
    ;
    $eight = 11;
;

### Check Test 8 ###
is($eight, 8, "ALGOL => own_line: 1, one_line: 1: Nested Multiline");

### Test 9 ###
eval {
    'comment'
        this should break
    ;
    1;
};

### Check 9 ###
ok(!$@, "ALGOL => own_line: 1, one_line: 1: Broken Syntax Ignored Multiline");

t/B-one_line_0-own_line_0.t  view on Meta::CPAN

    /* $two = 3; /* $two = 4;
    */ $two = 5; */

    ### Check Test 2 ###
    is($two, 2, "B => own_line: 0, one_line: 0: Nested Multiline");



    ### Test 3 ###
    eval {
        /* this should break
        */
        1;
    };

    ### Check 3 ###
    ok(!$@, "B => own_line: 0, one_line: 0: Broken Syntax Ignored Multiline");
}
### Test 7 ###
my $seven = 7;

t/B-one_line_0-own_line_0.t  view on Meta::CPAN

    /*
        $eight = 10;
    */
    $eight = 11;
*/

### Check Test 8 ###
is($eight, 8, "B => own_line: 0, one_line: 0: Nested Multiline");

### Test 9 ###
eval {
    /*
        this should break
    */
    1;
};

### Check 9 ###
ok(!$@, "B => own_line: 0, one_line: 0: Broken Syntax Ignored Multiline");

t/B-one_line_0-own_line_1.t  view on Meta::CPAN

    /*
        $eight = 10;
    */
    $eight = 11;
*/

### Check Test 8 ###
is($eight, 8, "B => own_line: 1, one_line: 0: Nested Multiline");

### Test 9 ###
eval {
    /*
        this should break
    */
    1;
};

### Check 9 ###
ok(!$@, "B => own_line: 1, one_line: 0: Broken Syntax Ignored Multiline");

t/B-one_line_1-own_line_0.t  view on Meta::CPAN

    /* $two = 3; /* $two = 4;
    */ $two = 5; */

    ### Check Test 2 ###
    is($two, 2, "B => own_line: 0, one_line: 1: Nested Multiline");



    ### Test 3 ###
    eval {
        /* this should break
        */
        1;
    };

    ### Check 3 ###
    ok(!$@, "B => own_line: 0, one_line: 1: Broken Syntax Ignored Multiline");
}
SKIP: {
    ### Test 4 ###

t/B-one_line_1-own_line_0.t  view on Meta::CPAN

    ### Test 5 ###
    my $five = 5;

    /* $five = 7; /* $five = 8; */ $five = 9; */

    ### Check Test 5 ###
    is($five, 5, "B => own_line: 0, one_line: 1: Nested Multiline");


    ### Test 6 ###
    eval {
        /* this should break */
        1;
    };

    ### Check 6 ###
    ok(!$@, "B => own_line: 0, one_line: 1: Broken Syntax Ignored Multiline");
}
### Test 7 ###
my $seven = 7;

t/B-one_line_1-own_line_0.t  view on Meta::CPAN

    /*
        $eight = 10;
    */
    $eight = 11;
*/

### Check Test 8 ###
is($eight, 8, "B => own_line: 0, one_line: 1: Nested Multiline");

### Test 9 ###
eval {
    /*
        this should break
    */
    1;
};

### Check 9 ###
ok(!$@, "B => own_line: 0, one_line: 1: Broken Syntax Ignored Multiline");

t/B-one_line_1-own_line_1.t  view on Meta::CPAN

    ### Test 5 ###
    my $five = 5;

    /* $five = 7; /* $five = 8; */ $five = 9; */

    ### Check Test 5 ###
    is($five, 5, "B => own_line: 1, one_line: 1: Nested Multiline");


    ### Test 6 ###
    eval {
        /* this should break */
        1;
    };

    ### Check 6 ###
    ok(!$@, "B => own_line: 1, one_line: 1: Broken Syntax Ignored Multiline");
}
### Test 7 ###
my $seven = 7;

t/B-one_line_1-own_line_1.t  view on Meta::CPAN

    /*
        $eight = 10;
    */
    $eight = 11;
*/

### Check Test 8 ###
is($eight, 8, "B => own_line: 1, one_line: 1: Nested Multiline");

### Test 9 ###
eval {
    /*
        this should break
    */
    1;
};

### Check 9 ###
ok(!$@, "B => own_line: 1, one_line: 1: Broken Syntax Ignored Multiline");

t/BETA-one_line_0-own_line_0.t  view on Meta::CPAN

    (* $two = 3; (* $two = 4;
    *) $two = 5; *)

    ### Check Test 2 ###
    is($two, 2, "BETA => own_line: 0, one_line: 0: Nested Multiline");



    ### Test 3 ###
    eval {
        (* this should break
        *)
        1;
    };

    ### Check 3 ###
    ok(!$@, "BETA => own_line: 0, one_line: 0: Broken Syntax Ignored Multiline");
}
### Test 7 ###
my $seven = 7;

t/BETA-one_line_0-own_line_0.t  view on Meta::CPAN

    (*
        $eight = 10;
    *)
    $eight = 11;
*)

### Check Test 8 ###
is($eight, 8, "BETA => own_line: 0, one_line: 0: Nested Multiline");

### Test 9 ###
eval {
    (*
        this should break
    *)
    1;
};

### Check 9 ###
ok(!$@, "BETA => own_line: 0, one_line: 0: Broken Syntax Ignored Multiline");

t/BETA-one_line_0-own_line_1.t  view on Meta::CPAN

    (*
        $eight = 10;
    *)
    $eight = 11;
*)

### Check Test 8 ###
is($eight, 8, "BETA => own_line: 1, one_line: 0: Nested Multiline");

### Test 9 ###
eval {
    (*
        this should break
    *)
    1;
};

### Check 9 ###
ok(!$@, "BETA => own_line: 1, one_line: 0: Broken Syntax Ignored Multiline");

t/BETA-one_line_1-own_line_0.t  view on Meta::CPAN

    (* $two = 3; (* $two = 4;
    *) $two = 5; *)

    ### Check Test 2 ###
    is($two, 2, "BETA => own_line: 0, one_line: 1: Nested Multiline");



    ### Test 3 ###
    eval {
        (* this should break
        *)
        1;
    };

    ### Check 3 ###
    ok(!$@, "BETA => own_line: 0, one_line: 1: Broken Syntax Ignored Multiline");
}
SKIP: {
    ### Test 4 ###

t/BETA-one_line_1-own_line_0.t  view on Meta::CPAN

    ### Test 5 ###
    my $five = 5;

    (* $five = 7; (* $five = 8; *) $five = 9; *)

    ### Check Test 5 ###
    is($five, 5, "BETA => own_line: 0, one_line: 1: Nested Multiline");


    ### Test 6 ###
    eval {
        (* this should break *)
        1;
    };

    ### Check 6 ###
    ok(!$@, "BETA => own_line: 0, one_line: 1: Broken Syntax Ignored Multiline");
}
### Test 7 ###
my $seven = 7;

t/BETA-one_line_1-own_line_0.t  view on Meta::CPAN

    (*
        $eight = 10;
    *)
    $eight = 11;
*)

### Check Test 8 ###
is($eight, 8, "BETA => own_line: 0, one_line: 1: Nested Multiline");

### Test 9 ###
eval {
    (*
        this should break
    *)
    1;
};

### Check 9 ###
ok(!$@, "BETA => own_line: 0, one_line: 1: Broken Syntax Ignored Multiline");

t/BETA-one_line_1-own_line_1.t  view on Meta::CPAN

    ### Test 5 ###
    my $five = 5;

    (* $five = 7; (* $five = 8; *) $five = 9; *)

    ### Check Test 5 ###
    is($five, 5, "BETA => own_line: 1, one_line: 1: Nested Multiline");


    ### Test 6 ###
    eval {
        (* this should break *)
        1;
    };

    ### Check 6 ###
    ok(!$@, "BETA => own_line: 1, one_line: 1: Broken Syntax Ignored Multiline");
}
### Test 7 ###
my $seven = 7;

t/BETA-one_line_1-own_line_1.t  view on Meta::CPAN

    (*
        $eight = 10;
    *)
    $eight = 11;
*)

### Check Test 8 ###
is($eight, 8, "BETA => own_line: 1, one_line: 1: Nested Multiline");

### Test 9 ###
eval {
    (*
        this should break
    *)
    1;
};

### Check 9 ###
ok(!$@, "BETA => own_line: 1, one_line: 1: Broken Syntax Ignored Multiline");

t/BLISS-one_line_0-own_line_0.t  view on Meta::CPAN

    (* $two = 3; (* $two = 4;
    *) $two = 5; *)

    ### Check Test 2 ###
    is($two, 2, "BLISS => own_line: 0, one_line: 0: Nested Multiline");



    ### Test 3 ###
    eval {
        (* this should break
        *)
        1;
    };

    ### Check 3 ###
    ok(!$@, "BLISS => own_line: 0, one_line: 0: Broken Syntax Ignored Multiline");
}
### Test 7 ###
my $seven = 7;

t/BLISS-one_line_0-own_line_0.t  view on Meta::CPAN

    (*
        $eight = 10;
    *)
    $eight = 11;
*)

### Check Test 8 ###
is($eight, 8, "BLISS => own_line: 0, one_line: 0: Nested Multiline");

### Test 9 ###
eval {
    (*
        this should break
    *)
    1;
};

### Check 9 ###
ok(!$@, "BLISS => own_line: 0, one_line: 0: Broken Syntax Ignored Multiline");

t/BLISS-one_line_0-own_line_1.t  view on Meta::CPAN

    (*
        $eight = 10;
    *)
    $eight = 11;
*)

### Check Test 8 ###
is($eight, 8, "BLISS => own_line: 1, one_line: 0: Nested Multiline");

### Test 9 ###
eval {
    (*
        this should break
    *)
    1;
};

### Check 9 ###
ok(!$@, "BLISS => own_line: 1, one_line: 0: Broken Syntax Ignored Multiline");

t/BLISS-one_line_1-own_line_0.t  view on Meta::CPAN

    (* $two = 3; (* $two = 4;
    *) $two = 5; *)

    ### Check Test 2 ###
    is($two, 2, "BLISS => own_line: 0, one_line: 1: Nested Multiline");



    ### Test 3 ###
    eval {
        (* this should break
        *)
        1;
    };

    ### Check 3 ###
    ok(!$@, "BLISS => own_line: 0, one_line: 1: Broken Syntax Ignored Multiline");
}
SKIP: {
    ### Test 4 ###

t/BLISS-one_line_1-own_line_0.t  view on Meta::CPAN

    ### Test 5 ###
    my $five = 5;

    (* $five = 7; (* $five = 8; *) $five = 9; *)

    ### Check Test 5 ###
    is($five, 5, "BLISS => own_line: 0, one_line: 1: Nested Multiline");


    ### Test 6 ###
    eval {
        (* this should break *)
        1;
    };

    ### Check 6 ###
    ok(!$@, "BLISS => own_line: 0, one_line: 1: Broken Syntax Ignored Multiline");
}
### Test 7 ###
my $seven = 7;

t/BLISS-one_line_1-own_line_0.t  view on Meta::CPAN

    (*
        $eight = 10;
    *)
    $eight = 11;
*)

### Check Test 8 ###
is($eight, 8, "BLISS => own_line: 0, one_line: 1: Nested Multiline");

### Test 9 ###
eval {
    (*
        this should break
    *)
    1;
};

### Check 9 ###
ok(!$@, "BLISS => own_line: 0, one_line: 1: Broken Syntax Ignored Multiline");

t/BLISS-one_line_1-own_line_1.t  view on Meta::CPAN

    ### Test 5 ###
    my $five = 5;

    (* $five = 7; (* $five = 8; *) $five = 9; *)

    ### Check Test 5 ###
    is($five, 5, "BLISS => own_line: 1, one_line: 1: Nested Multiline");


    ### Test 6 ###
    eval {
        (* this should break *)
        1;
    };

    ### Check 6 ###
    ok(!$@, "BLISS => own_line: 1, one_line: 1: Broken Syntax Ignored Multiline");
}
### Test 7 ###
my $seven = 7;

t/BLISS-one_line_1-own_line_1.t  view on Meta::CPAN

    (*
        $eight = 10;
    *)
    $eight = 11;
*)

### Check Test 8 ###
is($eight, 8, "BLISS => own_line: 1, one_line: 1: Nested Multiline");

### Test 9 ###
eval {
    (*
        this should break
    *)
    1;
};

### Check 9 ###
ok(!$@, "BLISS => own_line: 1, one_line: 1: Broken Syntax Ignored Multiline");

t/C-one_line_0-own_line_0.t  view on Meta::CPAN

    /* $two = 3; /* $two = 4;
    */ $two = 5; */

    ### Check Test 2 ###
    is($two, 2, "C# => own_line: 0, one_line: 0: Nested Multiline");



    ### Test 3 ###
    eval {
        /* this should break
        */
        1;
    };

    ### Check 3 ###
    ok(!$@, "C# => own_line: 0, one_line: 0: Broken Syntax Ignored Multiline");
}
### Test 7 ###
my $seven = 7;

t/C-one_line_0-own_line_0.t  view on Meta::CPAN

    /*
        $eight = 10;
    */
    $eight = 11;
*/

### Check Test 8 ###
is($eight, 8, "C# => own_line: 0, one_line: 0: Nested Multiline");

### Test 9 ###
eval {
    /*
        this should break
    */
    1;
};

### Check 9 ###
ok(!$@, "C# => own_line: 0, one_line: 0: Broken Syntax Ignored Multiline");

t/C-one_line_0-own_line_1.t  view on Meta::CPAN

    /*
        $eight = 10;
    */
    $eight = 11;
*/

### Check Test 8 ###
is($eight, 8, "C# => own_line: 1, one_line: 0: Nested Multiline");

### Test 9 ###
eval {
    /*
        this should break
    */
    1;
};

### Check 9 ###
ok(!$@, "C# => own_line: 1, one_line: 0: Broken Syntax Ignored Multiline");

t/C-one_line_1-own_line_0.t  view on Meta::CPAN

    /* $two = 3; /* $two = 4;
    */ $two = 5; */

    ### Check Test 2 ###
    is($two, 2, "C# => own_line: 0, one_line: 1: Nested Multiline");



    ### Test 3 ###
    eval {
        /* this should break
        */
        1;
    };

    ### Check 3 ###
    ok(!$@, "C# => own_line: 0, one_line: 1: Broken Syntax Ignored Multiline");
}
SKIP: {
    ### Test 4 ###

t/C-one_line_1-own_line_0.t  view on Meta::CPAN

    ### Test 5 ###
    my $five = 5;

    /* $five = 7; /* $five = 8; */ $five = 9; */

    ### Check Test 5 ###
    is($five, 5, "C# => own_line: 0, one_line: 1: Nested Multiline");


    ### Test 6 ###
    eval {
        /* this should break */
        1;
    };

    ### Check 6 ###
    ok(!$@, "C# => own_line: 0, one_line: 1: Broken Syntax Ignored Multiline");
}
### Test 7 ###
my $seven = 7;

t/C-one_line_1-own_line_0.t  view on Meta::CPAN

    /*
        $eight = 10;
    */
    $eight = 11;
*/

### Check Test 8 ###
is($eight, 8, "C# => own_line: 0, one_line: 1: Nested Multiline");

### Test 9 ###
eval {
    /*
        this should break
    */
    1;
};

### Check 9 ###
ok(!$@, "C# => own_line: 0, one_line: 1: Broken Syntax Ignored Multiline");

t/C-one_line_1-own_line_1.t  view on Meta::CPAN

    ### Test 5 ###
    my $five = 5;

    /* $five = 7; /* $five = 8; */ $five = 9; */

    ### Check Test 5 ###
    is($five, 5, "C# => own_line: 1, one_line: 1: Nested Multiline");


    ### Test 6 ###
    eval {
        /* this should break */
        1;
    };

    ### Check 6 ###
    ok(!$@, "C# => own_line: 1, one_line: 1: Broken Syntax Ignored Multiline");
}
### Test 7 ###
my $seven = 7;

t/C-one_line_1-own_line_1.t  view on Meta::CPAN

    /*
        $eight = 10;
    */
    $eight = 11;
*/

### Check Test 8 ###
is($eight, 8, "C# => own_line: 1, one_line: 1: Nested Multiline");

### Test 9 ###
eval {
    /*
        this should break
    */
    1;
};

### Check 9 ###
ok(!$@, "C# => own_line: 1, one_line: 1: Broken Syntax Ignored Multiline");

t/CHILL-one_line_0-own_line_0.t  view on Meta::CPAN

    /* $two = 3; /* $two = 4;
    */ $two = 5; */

    ### Check Test 2 ###
    is($two, 2, "CHILL => own_line: 0, one_line: 0: Nested Multiline");



    ### Test 3 ###
    eval {
        /* this should break
        */
        1;
    };

    ### Check 3 ###
    ok(!$@, "CHILL => own_line: 0, one_line: 0: Broken Syntax Ignored Multiline");
}
### Test 7 ###
my $seven = 7;

t/CHILL-one_line_0-own_line_0.t  view on Meta::CPAN

    /*
        $eight = 10;
    */
    $eight = 11;
*/

### Check Test 8 ###
is($eight, 8, "CHILL => own_line: 0, one_line: 0: Nested Multiline");

### Test 9 ###
eval {
    /*
        this should break
    */
    1;
};

### Check 9 ###
ok(!$@, "CHILL => own_line: 0, one_line: 0: Broken Syntax Ignored Multiline");

t/CHILL-one_line_0-own_line_1.t  view on Meta::CPAN

    /*
        $eight = 10;
    */
    $eight = 11;
*/

### Check Test 8 ###
is($eight, 8, "CHILL => own_line: 1, one_line: 0: Nested Multiline");

### Test 9 ###
eval {
    /*
        this should break
    */
    1;
};

### Check 9 ###
ok(!$@, "CHILL => own_line: 1, one_line: 0: Broken Syntax Ignored Multiline");

t/CHILL-one_line_1-own_line_0.t  view on Meta::CPAN

    /* $two = 3; /* $two = 4;
    */ $two = 5; */

    ### Check Test 2 ###
    is($two, 2, "CHILL => own_line: 0, one_line: 1: Nested Multiline");



    ### Test 3 ###
    eval {
        /* this should break
        */
        1;
    };

    ### Check 3 ###
    ok(!$@, "CHILL => own_line: 0, one_line: 1: Broken Syntax Ignored Multiline");
}
SKIP: {
    ### Test 4 ###

t/CHILL-one_line_1-own_line_0.t  view on Meta::CPAN

    ### Test 5 ###
    my $five = 5;

    /* $five = 7; /* $five = 8; */ $five = 9; */

    ### Check Test 5 ###
    is($five, 5, "CHILL => own_line: 0, one_line: 1: Nested Multiline");


    ### Test 6 ###
    eval {
        /* this should break */
        1;
    };

    ### Check 6 ###
    ok(!$@, "CHILL => own_line: 0, one_line: 1: Broken Syntax Ignored Multiline");
}
### Test 7 ###
my $seven = 7;

t/CHILL-one_line_1-own_line_0.t  view on Meta::CPAN

    /*
        $eight = 10;
    */
    $eight = 11;
*/

### Check Test 8 ###
is($eight, 8, "CHILL => own_line: 0, one_line: 1: Nested Multiline");

### Test 9 ###
eval {
    /*
        this should break
    */
    1;
};

### Check 9 ###
ok(!$@, "CHILL => own_line: 0, one_line: 1: Broken Syntax Ignored Multiline");

t/CHILL-one_line_1-own_line_1.t  view on Meta::CPAN

    ### Test 5 ###
    my $five = 5;

    /* $five = 7; /* $five = 8; */ $five = 9; */

    ### Check Test 5 ###
    is($five, 5, "CHILL => own_line: 1, one_line: 1: Nested Multiline");


    ### Test 6 ###
    eval {
        /* this should break */
        1;
    };

    ### Check 6 ###
    ok(!$@, "CHILL => own_line: 1, one_line: 1: Broken Syntax Ignored Multiline");
}
### Test 7 ###
my $seven = 7;

t/CHILL-one_line_1-own_line_1.t  view on Meta::CPAN

    /*
        $eight = 10;
    */
    $eight = 11;
*/

### Check Test 8 ###
is($eight, 8, "CHILL => own_line: 1, one_line: 1: Nested Multiline");

### Test 9 ###
eval {
    /*
        this should break
    */
    1;
};

### Check 9 ###
ok(!$@, "CHILL => own_line: 1, one_line: 1: Broken Syntax Ignored Multiline");

t/CLEAN-one_line_0-own_line_0.t  view on Meta::CPAN

    /* $two = 3; /* $two = 4;
    */ $two = 5; */

    ### Check Test 2 ###
    is($two, 2, "CLEAN => own_line: 0, one_line: 0: Nested Multiline");



    ### Test 3 ###
    eval {
        /* this should break
        */
        1;
    };

    ### Check 3 ###
    ok(!$@, "CLEAN => own_line: 0, one_line: 0: Broken Syntax Ignored Multiline");
}
### Test 7 ###
my $seven = 7;

t/CLEAN-one_line_0-own_line_0.t  view on Meta::CPAN

    /*
        $eight = 10;
    */
    $eight = 11;
*/

### Check Test 8 ###
is($eight, 8, "CLEAN => own_line: 0, one_line: 0: Nested Multiline");

### Test 9 ###
eval {
    /*
        this should break
    */
    1;
};

### Check 9 ###
ok(!$@, "CLEAN => own_line: 0, one_line: 0: Broken Syntax Ignored Multiline");

t/CLEAN-one_line_0-own_line_1.t  view on Meta::CPAN

    /*
        $eight = 10;
    */
    $eight = 11;
*/

### Check Test 8 ###
is($eight, 8, "CLEAN => own_line: 1, one_line: 0: Nested Multiline");

### Test 9 ###
eval {
    /*
        this should break
    */
    1;
};

### Check 9 ###
ok(!$@, "CLEAN => own_line: 1, one_line: 0: Broken Syntax Ignored Multiline");

t/CLEAN-one_line_1-own_line_0.t  view on Meta::CPAN

    /* $two = 3; /* $two = 4;
    */ $two = 5; */

    ### Check Test 2 ###
    is($two, 2, "CLEAN => own_line: 0, one_line: 1: Nested Multiline");



    ### Test 3 ###
    eval {
        /* this should break
        */
        1;
    };

    ### Check 3 ###
    ok(!$@, "CLEAN => own_line: 0, one_line: 1: Broken Syntax Ignored Multiline");
}
SKIP: {
    ### Test 4 ###

t/CLEAN-one_line_1-own_line_0.t  view on Meta::CPAN

    ### Test 5 ###
    my $five = 5;

    /* $five = 7; /* $five = 8; */ $five = 9; */

    ### Check Test 5 ###
    is($five, 5, "CLEAN => own_line: 0, one_line: 1: Nested Multiline");


    ### Test 6 ###
    eval {
        /* this should break */
        1;
    };

    ### Check 6 ###
    ok(!$@, "CLEAN => own_line: 0, one_line: 1: Broken Syntax Ignored Multiline");
}
### Test 7 ###
my $seven = 7;

t/CLEAN-one_line_1-own_line_0.t  view on Meta::CPAN

    /*
        $eight = 10;
    */
    $eight = 11;
*/

### Check Test 8 ###
is($eight, 8, "CLEAN => own_line: 0, one_line: 1: Nested Multiline");

### Test 9 ###
eval {
    /*
        this should break
    */
    1;
};

### Check 9 ###
ok(!$@, "CLEAN => own_line: 0, one_line: 1: Broken Syntax Ignored Multiline");

t/CLEAN-one_line_1-own_line_1.t  view on Meta::CPAN

    ### Test 5 ###
    my $five = 5;

    /* $five = 7; /* $five = 8; */ $five = 9; */

    ### Check Test 5 ###
    is($five, 5, "CLEAN => own_line: 1, one_line: 1: Nested Multiline");


    ### Test 6 ###
    eval {
        /* this should break */
        1;
    };

    ### Check 6 ###
    ok(!$@, "CLEAN => own_line: 1, one_line: 1: Broken Syntax Ignored Multiline");
}
### Test 7 ###
my $seven = 7;

t/CLEAN-one_line_1-own_line_1.t  view on Meta::CPAN

    /*
        $eight = 10;
    */
    $eight = 11;
*/

### Check Test 8 ###
is($eight, 8, "CLEAN => own_line: 1, one_line: 1: Nested Multiline");

### Test 9 ###
eval {
    /*
        this should break
    */
    1;
};

### Check 9 ###
ok(!$@, "CLEAN => own_line: 1, one_line: 1: Broken Syntax Ignored Multiline");

t/ELASTIC-one_line_0-own_line_0.t  view on Meta::CPAN

    /* $two = 3; /* $two = 4;
    */ $two = 5; */

    ### Check Test 2 ###
    is($two, 2, "ELASTIC => own_line: 0, one_line: 0: Nested Multiline");



    ### Test 3 ###
    eval {
        /* this should break
        */
        1;
    };

    ### Check 3 ###
    ok(!$@, "ELASTIC => own_line: 0, one_line: 0: Broken Syntax Ignored Multiline");
}
### Test 7 ###
my $seven = 7;

t/ELASTIC-one_line_0-own_line_0.t  view on Meta::CPAN

    /*
        $eight = 10;
    */
    $eight = 11;
*/

### Check Test 8 ###
is($eight, 8, "ELASTIC => own_line: 0, one_line: 0: Nested Multiline");

### Test 9 ###
eval {
    /*
        this should break
    */
    1;
};

### Check 9 ###
ok(!$@, "ELASTIC => own_line: 0, one_line: 0: Broken Syntax Ignored Multiline");

t/ELASTIC-one_line_0-own_line_1.t  view on Meta::CPAN

    /*
        $eight = 10;
    */
    $eight = 11;
*/

### Check Test 8 ###
is($eight, 8, "ELASTIC => own_line: 1, one_line: 0: Nested Multiline");

### Test 9 ###
eval {
    /*
        this should break
    */
    1;
};

### Check 9 ###
ok(!$@, "ELASTIC => own_line: 1, one_line: 0: Broken Syntax Ignored Multiline");