File Coverage

blib/lib/oo_sub.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch			n/a
condition			n/a
subroutine	11	11	100.0
pod			n/a
total	44	44	100.0

package oo_sub v1.1.0;

use strict;   # https://perldoc.perl.org/strict
use warnings; # https://perldoc.perl.org/warnings

use Module::Load; # https://perldoc.perl.org/Module::Load

use User::pwent; # https://perldoc.perl.org/User::pwent
use User::grent; # https://perldoc.perl.org/User::grent

use File::stat; # https://perldoc.perl.org/File::stat

use Time::Piece; # https://perldoc.perl.org/Time::Piece

use Net::netent;   # https://perldoc.perl.org/Net::netent
use Net::protoent; # https://perldoc.perl.org/Net::protoent
use Net::servent;  # https://perldoc.perl.org/Net::servent
use Net::hostent;  # https://perldoc.perl.org/Net::hostent

my @modules = qw(
	User::pwent
	User::grent

	File::stat

	Time::Piece

	Net::netent
	Net::protoent
	Net::servent
	Net::hostent
); # TODO: Don't repeat: find a way to to detect use-d modules somehow

for my $module ( @modules ) {
	Module::Load::autoload_remote caller, $module;
}

# TODO: Import modules by export categories (eg. user, time, network, file)

# TODO: (?): Time::gmtime Time::localtime

# https://perldoc.perl.org/Module::Load#autoload_remote

1;

=pod

=head1 NAME

oo_sub - Use object-oriented versions of Perl built-in functions

=head1 SYNOPSIS

  use oo_sub;

  my $user = getpwnam 'root';
  print $user -> uid;

  my $group = getgrgid 0;
  say $group -> name; # use feature 'say';

  say my $file =
    stat ('.') -> ino;

  printf "%s: %s",
    getprotobyname ('tcp') -> proto,
    getservbyname ('ftp') -> port;

  say Dumper getnetbyname 'loopback'; # use Data::Dumper;

  p my $time = localtime; # use DDP; (ie. Data::Printer)

=head1 DESCRIPTION

Perl pragma to import the following modules to enable OOP in Perl for some built-in functions:

=over 2

=item L

=item L

=item L

=item L

=item L

=item L

=item L

=item L

=back

Uses L|Module::Load/autoload_remote> to achieve this.

=cut

=head1 AUTHOR

L L<([e-mail])|mailto:[e-mail]>

=head1 COPYRIGHT

This library is free software; you may redistribute and/or modify it
under the same terms as Perl itself.

=head1 SEE ALSO

L, L, L, L



=cut