Gecko [ www.vortexaion.com ]

Windows NT KAMIDAKI 10.0 build 19045 (Windows 10) AMD64
Apache/2.4.58 (Win64) OpenSSL/3.1.3 PHP/8.3.9
Server IP : 192.168.3.16 & Your IP : 216.73.216.140
Domains : Cant Read [ /etc/named.conf ]
User : SISTEMA

Name	Size	Permission	Date
DBIC	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Dispatcher	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Minimal	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
messages	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Die.pm	3.92 KB	-rw-rw-rw-	2021-01-15 17:36
Die.pod	2.56 KB	-rw-rw-rw-	2021-01-15 17:36
Dispatcher.pm	9.32 KB	-rw-rw-rw-	2021-01-15 17:36
Dispatcher.pod	13.06 KB	-rw-rw-rw-	2021-01-15 17:36
Domain.pm	4.68 KB	-rw-rw-rw-	2021-01-15 17:36
Domain.pod	9.34 KB	-rw-rw-rw-	2021-01-15 17:36
Exception.pm	2.2 KB	-rw-rw-rw-	2021-01-15 17:36
Exception.pod	3.8 KB	-rw-rw-rw-	2021-01-15 17:36
Message.pm	4.73 KB	-rw-rw-rw-	2021-01-15 17:36
Message.pod	16.72 KB	-rw-rw-rw-	2021-01-15 17:36
Minimal.pm	5.83 KB	-rw-rw-rw-	2021-01-15 11:07
Minimal.pod	2.38 KB	-rw-rw-rw-	2021-01-15 11:07
Optional.pm	1.01 KB	-rw-rw-rw-	2021-01-15 11:07
Optional.pod	1.48 KB	-rw-rw-rw-	2021-01-15 11:07
Translator.pm	930 B	-rw-rw-rw-	2021-01-15 17:36
Translator.pod	1.99 KB	-rw-rw-rw-	2021-01-15 17:36
Util.pm	6.13 KB	-rw-rw-rw-	2021-01-15 11:07
Util.pod	4 KB	-rw-rw-rw-	2021-01-15 11:07

Rename

# Copyrights 2013-2021 by [Mark Overmeer <mark@overmeer.net>].
#  For other contributors see ChangeLog.
# See the manual pages for details on the licensing terms.
# Pod stripped from pm file by OODoc 2.02.
# This code is part of distribution Log-Report-Optional. Meta-POD processed
# with OODoc into POD and HTML manual-pages.  See README.md
# Copyright Mark Overmeer.  Licensed under the same terms as Perl itself.

package Log::Report::Optional;
use vars '$VERSION';
$VERSION = '1.07';

use base 'Exporter';

use warnings;
use strict;

my ($supported, @used_by);

BEGIN {
   if($INC{'Log/Report.pm'})
   {   $supported  = 'Log::Report';
       my $version = $Log::Report::VERSION;
       die "Log::Report too old for ::Optional, need at least 1.00"
           if $version && $version le '1.00';
   }
   else
   {   require Log::Report::Minimal;
       $supported = 'Log::Report::Minimal';
   }
}

sub import(@)
{   my $class = shift;
    push @used_by, (caller)[0];
    $supported->import('+1', @_);
}

sub usedBy() { @used_by }