Select Code to Download

$ perl -w
sub nothing { return; }
...
__END__
foo has 0 elements after pushing nothing.
foo has 1 element after pushing something.

sub foo {
    return !! shift->{some_obj}->some_method;
}

sub foo {
    return ( shift->{some_obj}->some_method ) ? 1 : 0;
}

sub foo {
    return ( shift->{some_obj}->some_method ) ? 1 : ();
}

sub foo {
    return shift->{some_obj}->some_method || ();
}