Yet Another CPAN Grep

Sub-HandlesVia ( T/TO/TOBYINK/Sub-HandlesVia-0.050000.tar.gz, TOBYINK, 2023; MetaCPAN )

Sub-HandlesVia/t/04moose.t ( view source; MetaCPAN )

3.111');
is_deeply($bleh->nums, [3, 3, 4, 5], 'delegated coerced value');
my $ref2 = $bleh->nums;
isnt("$ref", "$ref2", '... but needed to build a new array')
	or do {
		require B::Deparse;
		diag( B:

splice_nums(1, 0, '3.111');
is_deeply($bleh->nums, [3, 3, 4, 5], 'delegated coerced value');
$ref2 = $bleh->nums;
isnt("$ref", "$ref2", '... but sadly needed to build a new arrayref');

done_testing;

Sub-HandlesVia ( T/TO/TOBYINK/Sub-HandlesVia-0.050000.tar.gz, TOBYINK, 2023; MetaCPAN )

Sub-HandlesVia/t/07mouse_nativetypes/trait_hash.t ( view source; MetaCPAN )

or params' );

        isnt( exception {
            $obj->set_option( bar => {} );
        }, undef, '... could not add a hash ref where an string is expected' );

        isnt( exception {

Sub-HandlesVia ( T/TO/TOBYINK/Sub-HandlesVia-0.050000.tar.gz, TOBYINK, 2023; MetaCPAN )

Sub-HandlesVia/t/03moo_mxtt/trait_hash.t ( view source; MetaCPAN )

or params' );

        isnt( exception {
            $obj->set_option( bar => {} );
        }, undef, '... could not add a hash ref where an string is expected' );

        isnt( exception {

Sub-HandlesVia ( T/TO/TOBYINK/Sub-HandlesVia-0.050000.tar.gz, TOBYINK, 2023; MetaCPAN )

Sub-HandlesVia/t/02moo/trait_hash.t ( view source; MetaCPAN )

or params' );

        isnt( exception {
            $obj->set_option( bar => {} );
        }, undef, '... could not add a hash ref where an string is expected' );

        isnt( exception {

Sub-HandlesVia ( T/TO/TOBYINK/Sub-HandlesVia-0.050000.tar.gz, TOBYINK, 2023; MetaCPAN )

Sub-HandlesVia/t/05moose_nativetypes/trait_hash.t ( view source; MetaCPAN )

or params' );

        isnt( exception {
            $obj->set_option( bar => {} );
        }, undef, '... could not add a hash ref where an string is expected' );

        isnt( exception {

Sub-HandlesVia ( T/TO/TOBYINK/Sub-HandlesVia-0.050000.tar.gz, TOBYINK, 2023; MetaCPAN )

Sub-HandlesVia/t/06mouse/trait_hash.t ( view source; MetaCPAN )

or params' );

        isnt( exception {
            $obj->set_option( bar => {} );
        }, undef, '... could not add a hash ref where an string is expected' );

        isnt( exception {

Sub-HandlesVia ( T/TO/TOBYINK/Sub-HandlesVia-0.050000.tar.gz, TOBYINK, 2023; MetaCPAN )

Sub-HandlesVia/t/04moose/trait_hash.t ( view source; MetaCPAN )

or params' );

        isnt( exception {
            $obj->set_option( bar => {} );
        }, undef, '... could not add a hash ref where an string is expected' );

        isnt( exception {

Sub-HandlesVia ( T/TO/TOBYINK/Sub-HandlesVia-0.050000.tar.gz, TOBYINK, 2023; MetaCPAN )

Sub-HandlesVia/t/02moo.t ( view source; MetaCPAN )

splice_nums(1, 0, '3.111');
is_deeply($bleh->nums, [3, 3, 4, 5], 'delegated coerced value');
$ref2 = $bleh->nums;
isnt("$ref", "$ref2", '... but sadly needed to build a new arrayref');

done_testing;

Sub-HandlesVia ( T/TO/TOBYINK/Sub-HandlesVia-0.050000.tar.gz, TOBYINK, 2023; MetaCPAN )

Sub-HandlesVia/t/04moose/role.t ( view source; MetaCPAN )

is( $obj->pop_num, 10 );
is( $obj->pop_num, 9 );
is( $obj->pop_num, 8 );
is( $obj->pop_num, 7 );

isnt(
	exception { $obj->push_num(44.5) },
	undef,
);

is( $obj->pop_num, 6 );

is(
	exception { $obj-

Sub-HandlesVia ( T/TO/TOBYINK/Sub-HandlesVia-0.050000.tar.gz, TOBYINK, 2023; MetaCPAN )

Sub-HandlesVia/t/05moose_nativetypes.t ( view source; MetaCPAN )

1');
	is_deeply($bleh->nums, [3, 3, 4, 5], 'delegated coerced value');
}

my $ref2 = $bleh->nums;
isnt("$ref", "$ref2", '... but sadly needed to build a new arrayref');

$bleh = Local::Bleh->new;
@r =

Sub-HandlesVia ( T/TO/TOBYINK/Sub-HandlesVia-0.050000.tar.gz, TOBYINK, 2023; MetaCPAN )

Sub-HandlesVia/t/06mouse.t ( view source; MetaCPAN )

splice_nums(1, 0, '3.111');
is_deeply($bleh->nums, [3, 3, 4, 5], 'delegated coerced value');
$ref2 = $bleh->nums;
isnt("$ref", "$ref2", '... but sadly needed to build a new arrayref');

done_testing;

Sub-HandlesVia ( T/TO/TOBYINK/Sub-HandlesVia-0.050000.tar.gz, TOBYINK, 2023; MetaCPAN )

Sub-HandlesVia/t/05moose_nativetypes/role.t ( view source; MetaCPAN )

is( $obj->pop_num, 10 );
is( $obj->pop_num, 9 );
is( $obj->pop_num, 8 );
is( $obj->pop_num, 7 );

isnt(
	exception { $obj->push_num(44.5) },
	undef,
);

is( $obj->pop_num, 6 );

is(
	exception { $obj-

Sub-HandlesVia ( T/TO/TOBYINK/Sub-HandlesVia-0.050000.tar.gz, TOBYINK, 2023; MetaCPAN )

Sub-HandlesVia/t/07mouse_nativetypes.t ( view source; MetaCPAN )

3.111');
is_deeply($bleh->nums, [3, 3, 4, 5], 'delegated coerced value');
my $ref2 = $bleh->nums;
isnt("$ref", "$ref2", '... but sadly needed to build a new arrayref')
	or do {
		require B::Deparse;

Sub-HandlesVia ( T/TO/TOBYINK/Sub-HandlesVia-0.050000.tar.gz, TOBYINK, 2023; MetaCPAN )

Sub-HandlesVia/t/06mouse/role.t ( view source; MetaCPAN )

is( $obj->pop_num, 10 );
is( $obj->pop_num, 9 );
is( $obj->pop_num, 8 );
is( $obj->pop_num, 7 );

isnt(
	exception { $obj->push_num(44.5) },
	undef,
);

is( $obj->pop_num, 6 );

is(
	exception { $obj-

Sub-HandlesVia ( T/TO/TOBYINK/Sub-HandlesVia-0.050000.tar.gz, TOBYINK, 2023; MetaCPAN )

Sub-HandlesVia/t/03moo_mxtt/role.t ( view source; MetaCPAN )

is( $obj->pop_num, 10 );
is( $obj->pop_num, 9 );
is( $obj->pop_num, 8 );
is( $obj->pop_num, 7 );

isnt(
	exception { $obj->push_num(44.5) },
	undef,
);

is( $obj->pop_num, 6 );

is(
	exception { $obj-

Sub-HandlesVia ( T/TO/TOBYINK/Sub-HandlesVia-0.050000.tar.gz, TOBYINK, 2023; MetaCPAN )

Sub-HandlesVia/t/07mouse_nativetypes/role.t ( view source; MetaCPAN )

is( $obj->pop_num, 10 );
is( $obj->pop_num, 9 );
is( $obj->pop_num, 8 );
is( $obj->pop_num, 7 );

isnt(
	exception { $obj->push_num(44.5) },
	undef,
);

is( $obj->pop_num, 6 );

is(
	exception { $obj-

Sub-HandlesVia ( T/TO/TOBYINK/Sub-HandlesVia-0.050000.tar.gz, TOBYINK, 2023; MetaCPAN )

Sub-HandlesVia/t/02moo/role.t ( view source; MetaCPAN )

is( $obj->pop_num, 10 );
is( $obj->pop_num, 9 );
is( $obj->pop_num, 8 );
is( $obj->pop_num, 7 );

isnt(
	exception { $obj->push_num(44.5) },
	undef,
);

is( $obj->pop_num, 6 );

is(
	exception { $obj-

Sub-HandlesVia ( T/TO/TOBYINK/Sub-HandlesVia-0.050000.tar.gz, TOBYINK, 2023; MetaCPAN )

Sub-HandlesVia/t/03moo_mxtt.t ( view source; MetaCPAN )

splice_nums(1, 0, '3.111');
is_deeply($bleh->nums, [3, 3, 4, 5], 'delegated coerced value');
$ref2 = $bleh->nums;
isnt("$ref", "$ref2", '... but sadly needed to build a new arrayref');

done_testing;