File Coverage

blib/lib/Linux/Shadow.pm

Criterion	Covered	Total	%
statement	47	48	97.9
branch	4	8	50.0
condition	4	12	33.3
subroutine	14	14	100.0
pod	3	4	75.0
total	72	86	83.7

package Linux::Shadow;

use 5.010001;
use strict;
use warnings;
use feature 'state';
use Carp;

require Exporter;
use AutoLoader;

use base qw(Exporter);

our %EXPORT_TAGS = (
    'all' => [
        qw(
          SHADOW
          getspnam
          getspent
          setspent
          endspent
          )
    ],
    'getpw' => [
        qw(
          getpwnam
          getpwuid
          getpwent
          )
    ]
);

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} }, @{ $EXPORT_TAGS{'getpw'} } );

our @EXPORT = qw(
  getspnam
  getspent
  setspent
  endspent
);

our $VERSION = '0.05';

sub AUTOLOAD {
    my $constname;
    our $AUTOLOAD;
    ( $constname = $AUTOLOAD ) =~ s/.*:://;
    croak '&Linux::Shadow::constant not defined' if $constname eq 'constant';
    my ( $error, $val ) = constant($constname);
    if ($error) { croak $error; }
    {
        no strict 'refs';
        *$AUTOLOAD = sub { $val };
    }
    goto &$AUTOLOAD;
}

require XSLoader;
XSLoader::load( 'Linux::Shadow', $VERSION );

sub getpwnam {

    my ($name) = @_;
    my @pwent = CORE::getpwnam($name);
    return set_pwent_expire(@pwent);

}

sub getpwuid {

    my ($uid) = @_;
    my @pwent = CORE::getpwuid($uid);
    return set_pwent_expire(@pwent);

}

sub getpwent {

    my @pwent = CORE::getpwent();
    return set_pwent_expire(@pwent);

}

sub set_pwent_expire {

    my @pwent = @_;

    if ( @pwent && $pwent[0] && !defined $pwent[9] ) {

        my @shadow = getspnam( $pwent[0] );
        if ( @shadow && ( $shadow[0] eq $pwent[0] ) && defined $shadow[7] ) {
            $pwent[9] = $shadow[7];
        }

    }

    return @pwent;

}

1;
__END__