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.204
Domains : Cant Read [ /etc/named.conf ]
User : SISTEMA

Name	Size	Permission	Date
Base.pm	4.65 KB	-rw-rw-rw-	2017-07-19 01:05
DBM.pm	2.56 KB	-rw-rw-rw-	2017-07-19 01:05
DBM.pod	266 B	-rw-rw-rw-	2017-07-19 01:05
Dir.pm	5.38 KB	-rw-rw-rw-	2017-07-19 01:05
Dir.pod	272 B	-rw-rw-rw-	2017-07-19 01:05
File.pm	6.27 KB	-rw-rw-rw-	2017-07-19 01:05
File.pod	268 B	-rw-rw-rw-	2017-07-19 01:05
Filesys.pm	2.67 KB	-rw-rw-rw-	2017-07-19 01:05
Filesys.pod	284 B	-rw-rw-rw-	2017-07-19 01:05
Link.pm	1.15 KB	-rw-rw-rw-	2017-07-19 01:05
Link.pod	268 B	-rw-rw-rw-	2017-07-19 01:05
MLDBM.pm	986 B	-rw-rw-rw-	2017-07-19 01:05
MLDBM.pod	270 B	-rw-rw-rw-	2017-07-19 01:05
Pipe.pm	1.18 KB	-rw-rw-rw-	2017-07-19 01:05
Pipe.pod	268 B	-rw-rw-rw-	2017-07-19 01:05
STDIO.pm	916 B	-rw-rw-rw-	2017-07-19 01:05
STDIO.pod	270 B	-rw-rw-rw-	2017-07-19 01:05
Socket.pm	3.03 KB	-rw-rw-rw-	2017-07-19 01:05
Socket.pod	272 B	-rw-rw-rw-	2017-07-19 01:05
String.pm	528 B	-rw-rw-rw-	2017-07-19 01:05
String.pod	272 B	-rw-rw-rw-	2017-07-19 01:05
Temp.pm	368 B	-rw-rw-rw-	2017-07-19 01:05
Temp.pod	278 B	-rw-rw-rw-	2017-07-19 01:05

Rename

use strict; use warnings;
package IO::All::Link;

use IO::All::File -base;

const type => 'link';

sub link {
    my $self = shift;
    bless $self, __PACKAGE__;
    $self->name(shift) if @_;
    $self->_init;
}

sub readlink {
    my $self = shift;
    $self->_constructor->(CORE::readlink($self->name));
}

sub symlink {
    my $self = shift;
    my $target = shift;
    $self->assert_filepath if $self->_assert;
    CORE::symlink($target, $self->pathname);
}

sub AUTOLOAD {
    my $self = shift;
    our $AUTOLOAD;
    (my $method = $AUTOLOAD) =~ s/.*:://;
    my $target = $self->target;
    unless ($target) {
        $self->throw("Can't call $method on symlink");
        return;
    }
    $target->$method(@_);
}

sub target {
    my $self = shift;
    return *$self->{target} if *$self->{target};
    my %seen;
    my $link = $self;
    my $new;
    while ($new = $link->readlink) {
        my $type = $new->type or return;
        last if $type eq 'file';
        last if $type eq 'dir';
        return unless $type eq 'link';
        return if $seen{$new->name}++;
        $link = $new;
    }
    *$self->{target} = $new;
}

sub exists { -l shift->pathname }