Gecko [ edgpens.lpkmn.gov.my ]

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

Name

Size

Permission

Action

Base.pm

4.65 KB

-rw-rw-rw-

DBM.pm

2.56 KB

-rw-rw-rw-

DBM.pod

266 B

-rw-rw-rw-

Dir.pm

5.38 KB

-rw-rw-rw-

Dir.pod

272 B

-rw-rw-rw-

File.pm

6.27 KB

-rw-rw-rw-

File.pod

268 B

-rw-rw-rw-

Filesys.pm

2.67 KB

-rw-rw-rw-

Filesys.pod

284 B

-rw-rw-rw-

Link.pm

1.15 KB

-rw-rw-rw-

Link.pod

268 B

-rw-rw-rw-

MLDBM.pm

986 B

-rw-rw-rw-

MLDBM.pod

270 B

-rw-rw-rw-

Pipe.pm

1.18 KB

-rw-rw-rw-

Pipe.pod

268 B

-rw-rw-rw-

STDIO.pm

916 B

-rw-rw-rw-

STDIO.pod

270 B

-rw-rw-rw-

Socket.pm

3.03 KB

-rw-rw-rw-

Socket.pod

272 B

-rw-rw-rw-

String.pm

528 B

-rw-rw-rw-

String.pod

272 B

-rw-rw-rw-

Temp.pm

368 B

-rw-rw-rw-

Temp.pod

278 B

-rw-rw-rw-

Code Editor : Link.pm

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 }

${this.title}

Code Editor : Link.pm