File Coverage

blib/lib/Filesys/POSIX/Error.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	23	24	95.8

# Copyright (c) 2014, cPanel, Inc.
# All rights reserved.
# http://cpanel.net/
#
# This is free software; you can redistribute it and/or modify it under the same
# terms as Perl itself.  See the LICENSE file for further details.

package Filesys::POSIX::Error;

use strict;
use warnings;

use Errno;

use Carp ();

=head1 NAME

Filesys::POSIX::Error - Throw Errno values with L

=head1 SYNOPSIS

    use Filesys::POSIX::Error;

    throw &Errno::ENOENT;

=head1 DESCRIPTION

C provides C, a function which allows one to
set L|perlvar/$!> and throw a stack trace containing a stringification
thereof in one simple action.

=cut

BEGIN {
    require Exporter;

    our @EXPORT_OK = qw(throw);
}

our @ISA = ('Exporter');

sub throw ($) {
    my ($errno) = @_;

    $! = $errno;

    Carp::confess "$!";
}

1;

__END__