Select Code to Download

== this is the "base module shared by all - I use base *it* instead of
+ CGI::App directly.
package YPTP::App;
...
    return 1 if($type eq 'admin');  # admin can do anything
    return 0;                # everyone else can't do a thing
}

sub authorize {
    my $self     = shift;
...
        return $auth->{_default};
    } 
}