view release on metacpan or  search on metacpan

lib/WWW/A9Toolbar.pm  view on Meta::CPAN

    return;
}

sub scan_cookies
{
    my ($self) = @_;

    return unless($self->{cookies});

    my ($id, $prefs, $name, $perm);

    my $scansub = sub {
        my ($version, $key, $val, $path, $domain, $port, $path_spec, $secure, $expires, $discard, $hash) = @_;
        if($domain eq 'a9.com')
        {
            $prefs = $val if($key eq 'a9Prefs');
            $id    = $val if($key eq 'a9id');
            $name  = $val if($key eq 'a9name');
            $perm  = $val if($key eq 'a9Perm');
        }
    };

    $self->{cookies}->scan( $scansub );

    $self->{'customer-id'} = $id;
    $self->{prefs}         = $prefs;
    $self->{name}          = $name;
    $self->{perm}          = $perm;
}

sub get_userdata
{
    my ($self) = @_;

    return $self->{userdata} if($self->{userdata});