Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
Archive	[ DIR ]	drwxr-xr-x
Collection	[ DIR ]	drwxr-xr-x
Archive.pm	801 B	-rw-r--r--
Archive.pod	4.59 KB	-rw-r--r--
Collection.pm	3.09 KB	-rw-r--r--
Collection.pod	8.69 KB	-rw-r--r--
Item.pm	4 KB	-rw-r--r--
Item.pod	7.12 KB	-rw-r--r--
Location.pm	2.8 KB	-rw-r--r--
Location.pod	7.2 KB	-rw-r--r--
System.pm	1.25 KB	-rw-r--r--
System.pod	5.71 KB	-rw-r--r--

Code Editor : System.pm

# Copyrights 2003-2022 by [Mark Overmeer <markov@cpan.org>].
#  For other contributors see ChangeLog.
# See the manual pages for details on the licensing terms.
# Pod stripped from pm file by OODoc 2.03.
# This code is part of distribution User-Identity.  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 User::Identity::System;
use vars '$VERSION';
$VERSION = '1.01';

use base 'User::Identity::Item';

use strict;
use warnings;

use User::Identity;
use Scalar::Util 'weaken';

sub type { "network" }

sub init($)
{   my ($self, $args) = @_;

$self->SUPER::init($args);
    exists $args->{$_} && ($self->{'UIS_'.$_} = delete $args->{$_})
        foreach qw/hostname location os password username/;

$self->{UIS_hostname} ||= 'localhost';
   $self;
}

sub hostname() { shift->{UIS_hostname} }

sub username() { shift->{UIS_username} }

sub os() { shift->{UIS_os} }

sub password() { shift->{UIS_password} }

sub location()
{   my $self      = shift;
    my $location  = $self->{MI_location} or return;

unless(ref $location)
    {   my $user  = $self->user or return;
        $location = $user->find(location => $location);
    }

$location;
}

${this.title}

Code Editor : System.pm