File Coverage

blib/lib/Sub/Todo.pm

Criterion	Covered	Total	%
statement	26	28	92.8
branch	2	4	50.0
condition			n/a
subroutine	10	12	83.3
pod	5	5	100.0
total	43	49	87.7

package Sub::Todo;

use warnings;
use strict;
use Carp;

use version; our $VERSION = qv('0.0.3');

use base qw(Exporter);
our @EXPORT      = qw(todo);
our @EXPORT_OK   = qw(todo_return todo_carp todo_croak get_errno_func_not_impl);
our %EXPORT_TAGS = ( 'all' => [@EXPORT, @EXPORT_OK], 'long' => \@EXPORT_OK );

sub todo {
	$! = get_errno_func_not_impl(), return;
}

sub todo_return {
	$! = get_errno_func_not_impl(), return;
}

sub todo_carp {
	# $! = 78, warn($!), return;
	$! = get_errno_func_not_impl(), carp("$!"), $! = get_errno_func_not_impl(), return; # carp/croak needs the double quotes and double assignment of $!, warn/die does not, weird...
}

sub todo_croak {
	# $! = 78, die($!), return;
	$! = get_errno_func_not_impl(), croak("$!"), $! = get_errno_func_not_impl(), return; # still 'return;' just in case they've overidden croak()/handlers with funny things
}

sub get_errno_func_not_impl {
    # we don't want to load POSIX but if its there we want to use it
    # CONSTANTs are weird when not defined so we have to:

    local  $^W = 0;
    no warnings;
    no strict;
    my $posix = POSIX::ENOSYS;
    return $posix ne 'POSIX::ENOSYS' ? POSIX::ENOSYS
                  : $^O =~ /linux/i  ? 38
                  :                    78
                  ;
}

1;

__END__