view release on metacpan or search on metacpan
Server/RaveMPServer.pm view on Meta::CPAN
push @allow, @_;
}
sub new {
my $class = shift;
$class->SUPER::new({'pidfile' => 'none',
'clients' => \@allow,
'mode' => 'single', #non-forking mode
'logfile' => 'STDERR', #XXX
'localport' => $PORT}, []);
}
view release on metacpan or search on metacpan
lib/Audio/XMMSClient/XMLRPC.pm view on Meta::CPAN
=cut
sub new {
my $base = shift;
my $self = $base->SUPER::new(@_);
(my $default_name = __PACKAGE__) =~ s/::/-/g;
$self->name( $default_name ) unless defined $self->name;
$self->port( 9000 ) unless defined $self->port;
view release on metacpan or search on metacpan
pm/XMMSClient/Glib.pm view on Meta::CPAN
use base qw(Audio::XMMSClient);
sub new {
my $class = shift;
my $self = $class->SUPER::new(@_);
bless $self, $class;
return $self;
}
sub connect {
my $self = shift;
my $res = $self->SUPER::connect(@_);
$self->io_need_out_callback_set(\&need_out);
Glib::IO->add_watch( $self->io_fd_get, 'in', sub { $self->handle_in(@_) } );
$self->{has_out_watch} = 0;
view release on metacpan or search on metacpan
lib/AudioFile/Info/Build.pm view on Meta::CPAN
use YAML qw(LoadFile DumpFile);
sub ACTION_install {
my $self = shift;
$self->SUPER::ACTION_install(@_);
require AudioFile::Info;
die "Can't find the installation of AudioFile::Info\n" if $@;
view release on metacpan or search on metacpan
lib/AudioFile/Info/Build.pm view on Meta::CPAN
use YAML qw(LoadFile DumpFile);
sub ACTION_install {
my $self = shift;
$self->SUPER::ACTION_install(@_);
require AudioFile::Info;
die "Can't find the installation of AudioFile::Info\n" if $@;
view release on metacpan or search on metacpan
lib/AudioFile/Info/Build.pm view on Meta::CPAN
use YAML qw(LoadFile DumpFile);
sub ACTION_install {
my $self = shift;
$self->SUPER::ACTION_install(@_);
require AudioFile::Info;
die "Can't find the installation of AudioFile::Info\n" if $@;
view release on metacpan or search on metacpan
lib/AudioFile/Info/Build.pm view on Meta::CPAN
use YAML qw(LoadFile DumpFile);
sub ACTION_install {
my $self = shift;
$self->SUPER::ACTION_install(@_);
require AudioFile::Info;
die "Can't find the installation of AudioFile::Info\n" if $@;
view release on metacpan or search on metacpan
lib/AudioFile/Info/Build.pm view on Meta::CPAN
use YAML qw(LoadFile DumpFile);
sub ACTION_install {
my $self = shift;
$self->SUPER::ACTION_install(@_);
require AudioFile::Info;
die "Can't find the installation of AudioFile::Info\n" if $@;
view release on metacpan or search on metacpan
lib/AudioFile/Info/Build.pm view on Meta::CPAN
use YAML qw(LoadFile DumpFile);
sub ACTION_install {
my $self = shift;
$self->SUPER::ACTION_install(@_);
require AudioFile::Info;
die "Can't find the installation of AudioFile::Info\n" if $@;
view release on metacpan or search on metacpan
$self->recursive_test_files(1);
$self->test_files( 't', 'xt' )
if $ENV{'RELEASE_TESTING'};
return $self->SUPER::ACTION_test();
}
# Force running extended tests when testing the distribution.
sub ACTION_disttest
{
my ( $self ) = @_;
local $ENV{ RELEASE_TESTING } = 1;
return $self->SUPER::ACTION_disttest();
}
|,
);
my $builder = $class->new(
view release on metacpan or search on metacpan
$self->recursive_test_files(1);
$self->test_files( 't', 'xt' )
if $ENV{'RELEASE_TESTING'};
return $self->SUPER::ACTION_test();
}
# Force running extended tests when testing the distribution.
sub ACTION_disttest
{
my ( $self ) = @_;
local $ENV{ RELEASE_TESTING } = 1;
return $self->SUPER::ACTION_disttest();
}
|,
);
my $builder = $class->new(
view release on metacpan or search on metacpan
lib/Aut/UI/wxGUI.pm view on Meta::CPAN
# begin wxGlade: __Aut__YesNo::new
$style = wxDEFAULT_DIALOG_STYLE
unless defined $style;
$self = $self->SUPER::new( $parent, $id, $title, $pos, $size, $style, $name );
$self->{yn_label} = Wx::StaticText->new($self, -1, _T("label_11"), wxDefaultPosition, wxDefaultSize, );
$self->{static_line_4} = Wx::StaticLine->new($self, -1, wxDefaultPosition, wxDefaultSize, );
$self->{yn_no} = Wx::Button->new($self, wxNO, _T("&No"));
$self->{yn_yes} = Wx::Button->new($self, wxYES, _T("&Yes"));
lib/Aut/UI/wxGUI.pm view on Meta::CPAN
# begin wxGlade: __Aut__Msg::new
$style = wxDEFAULT_DIALOG_STYLE
unless defined $style;
$self = $self->SUPER::new( $parent, $id, $title, $pos, $size, $style, $name );
$self->{msgLabel} = Wx::StaticText->new($self, -1, _T("label_11"), wxDefaultPosition, wxDefaultSize, );
$self->{static_line_3} = Wx::StaticLine->new($self, -1, wxDefaultPosition, wxDefaultSize, );
$self->{autmsg_ok} = Wx::Button->new($self, wxID_OK, _T("&OK"));
$self->__set_properties();
lib/Aut/UI/wxGUI.pm view on Meta::CPAN
# begin wxGlade: __Aut__Entry::new
$style = wxDEFAULT_DIALOG_STYLE
unless defined $style;
$self = $self->SUPER::new( $parent, $id, $title, $pos, $size, $style, $name );
$self->{txtLabel} = Wx::StaticText->new($self, -1, _T(".sdfsdfsfa"), wxDefaultPosition, wxDefaultSize, );
$self->{txtEntry} = Wx::TextCtrl->new($self, -1, "", wxDefaultPosition, wxDefaultSize, wxTE_PASSWORD);
$self->{static_line_2} = Wx::StaticLine->new($self, -1, wxDefaultPosition, wxDefaultSize, );
$self->{qCancel} = Wx::Button->new($self, wxID_CANCEL, _T("&Cancel"));
$self->{qOK} = Wx::Button->new($self, wxID_OK, _T("&OK"));
lib/Aut/UI/wxGUI.pm view on Meta::CPAN
# begin wxGlade: __Aut__ChangePass::new
$style = wxDEFAULT_DIALOG_STYLE
unless defined $style;
$self = $self->SUPER::new( $parent, $id, $title, $pos, $size, $style, $name );
$self->{label_7} = Wx::StaticText->new($self, -1, _T("Account:"), wxDefaultPosition, wxDefaultSize, );
$self->{txtchgpass_account} = Wx::TextCtrl->new($self, -1, "", wxDefaultPosition, wxDefaultSize, );
$self->{label_10} = Wx::StaticText->new($self, -1, _T("Current password:"), wxDefaultPosition, wxDefaultSize, );
$self->{txtchgpass_old} = Wx::TextCtrl->new($self, -1, "", wxDefaultPosition, wxDefaultSize, wxTE_PASSWORD);
$self->{label_8} = Wx::StaticText->new($self, -1, _T("Password:"), wxDefaultPosition, wxDefaultSize, );
lib/Aut/UI/wxGUI.pm view on Meta::CPAN
# begin wxGlade: __Aut__dlgLogin::new
$style = wxDIALOG_MODAL|wxCAPTION
unless defined $style;
$self = $self->SUPER::new( $parent, $id, $title, $pos, $size, $style, $name );
$self->{label_1} = Wx::StaticText->new($self, -1, _T("Account:"), wxDefaultPosition, wxDefaultSize, wxALIGN_RIGHT);
$self->{authAccount} = Wx::TextCtrl->new($self, -1, "", wxDefaultPosition, wxDefaultSize, );
$self->{label_2} = Wx::StaticText->new($self, -1, _T("Password:"), wxDefaultPosition, wxDefaultSize, wxALIGN_RIGHT);
$self->{authPass} = Wx::TextCtrl->new($self, -1, "", wxDefaultPosition, wxDefaultSize, wxTE_PASSWORD);
$self->{authCancel} = Wx::Button->new($self, -1, _T("&Cancel"));
lib/Aut/UI/wxGUI.pm view on Meta::CPAN
# begin wxGlade: __Aut__InputAccount::new
$style = wxDEFAULT_DIALOG_STYLE
unless defined $style;
$self = $self->SUPER::new( $parent, $id, $title, $pos, $size, $style, $name );
$self->{label_3} = Wx::StaticText->new($self, -1, _T("Account:"), wxDefaultPosition, wxDefaultSize, );
$self->{txtAccount} = Wx::TextCtrl->new($self, -1, "", wxDefaultPosition, wxDefaultSize, );
$self->{label_4} = Wx::StaticText->new($self, -1, _T("Password:"), wxDefaultPosition, wxDefaultSize, );
$self->{txtPass} = Wx::TextCtrl->new($self, -1, "", wxDefaultPosition, wxDefaultSize, wxTE_PASSWORD);
$self->{label_6} = Wx::StaticText->new($self, -1, _T("Password (Again):"), wxDefaultPosition, wxDefaultSize, );
lib/Aut/UI/wxGUI.pm view on Meta::CPAN
# begin wxGlade: __Aut__AdminAccounts::new
$style = wxDIALOG_MODAL|wxCAPTION
unless defined $style;
$self = $self->SUPER::new( $parent, $id, $title, $pos, $size, $style, $name );
$self->{lstAccounts} = Wx::ListCtrl->new($self, -1, wxDefaultPosition, wxDefaultSize, wxLC_REPORT|wxSUNKEN_BORDER);
$self->{glAddAccount} = Wx::Button->new($self, -1, _T("&Add"));
$self->{glRemoveAccount} = Wx::Button->new($self, -1, _T("&Remove"));
$self->{glEditAccount} = Wx::Button->new($self, -1, _T("&Edit"));
$self->{glOK} = Wx::Button->new($self, -1, _T("&OK"));
view release on metacpan or search on metacpan
lib/Authen/CAS/Client/Response.pm view on Meta::CPAN
#
package Authen::CAS::Client::Response::Error;
use base qw/ Authen::CAS::Client::Response /;
sub _ATTRIBUTES () { error => 'An internal error occurred', $_[0]->SUPER::_ATTRIBUTES }
sub new { my $class = shift; $class->SUPER::new( @_, _ok => undef ) }
sub error { my ( $self ) = @_; $self->{error} }
#======================================================================
lib/Authen/CAS/Client/Response.pm view on Meta::CPAN
#
package Authen::CAS::Client::Response::Failure;
use base qw/ Authen::CAS::Client::Response /;
sub _ATTRIBUTES () { code => undef, message => '', $_[0]->SUPER::_ATTRIBUTES }
sub new { my $class = shift; $class->SUPER::new( @_, _ok => 0 ) }
sub code { my ( $self ) = @_; $self->{code} }
sub message { my ( $self ) = @_; $self->{message} }
lib/Authen/CAS/Client/Response.pm view on Meta::CPAN
#
package Authen::CAS::Client::Response::Success;
use base qw/ Authen::CAS::Client::Response /;
sub new { my $class = shift; $class->SUPER::new( @_, _ok => 1 ) }
#======================================================================
# Authen::CAS::Client::Response::AuthSuccess
#
package Authen::CAS::Client::Response::AuthSuccess;
use base qw/ Authen::CAS::Client::Response::Success /;
sub _ATTRIBUTES () { user => undef, iou => undef, proxies => [ ], $_[0]->SUPER::_ATTRIBUTES }
sub user { my ( $self ) = @_; $self->{user} }
sub iou { my ( $self ) = @_; $self->{iou} }
sub proxies { my ( $self ) = @_; wantarray ? @{ $self->{proxies} } : [ @{ $self->{proxies} } ] }
lib/Authen/CAS/Client/Response.pm view on Meta::CPAN
#
package Authen::CAS::Client::Response::ProxySuccess;
use base qw/ Authen::CAS::Client::Response::Success /;
sub _ATTRIBUTES () { proxy_ticket => undef, $_[0]->SUPER::_ATTRIBUTES }
sub proxy_ticket { my ( $self ) = @_; $self->{proxy_ticket} }
1
view release on metacpan or search on metacpan
lib/Authen/CAS/UserAgent.pm view on Meta::CPAN
##Static Methods
#return the default user agent for this class
sub _agent($) {
return
$_[0]->SUPER::_agent . ' ' .
'CAS-UserAgent/' . $VERSION;
}
#Constructor
sub new($%) {
lib/Authen/CAS/UserAgent.pm view on Meta::CPAN
# remove any cas options before creating base object
my $cas_opts = delete $opt{'cas_opts'};
#setup the base object
$self = $self->SUPER::new(%opt);
#attach a cas login handler if options were specified
$self->attach_cas_handler(%$cas_opts) if(ref($cas_opts) eq 'HASH');
#return this object
view release on metacpan or search on metacpan
# attempt to use the dumped blessed object without loading
# the ExtUtils::CBuilder class that is needed to make it
# work.
*write_config = sub {
delete $_[0]->{properties}->{_cbuilder};
return $_[0]->SUPER::write_config;
};
}
sub find_xs_files {
my($self) = @_;
return {} unless $self->have_c_compiler;
return $self->SUPER::find_xs_files;
}
})->new(
module_name => "Authen::DecHpwd",
license => "GPL_2",
dist_author => [
view release on metacpan or search on metacpan
DigestMD5.pm view on Meta::CPAN
use Digest::MD5 qw(md5_hex md5);
use Carp;
sub new {
my $this=shift->SUPER::new(@_);
$this->{_nc}={};
return $this;
}
sub _public {
view release on metacpan or search on metacpan
lib/Authen/Htpasswd/Trac.pm view on Meta::CPAN
sub new {
my $class = shift;
my $file = shift;
my $args = shift;
my $self = $class->SUPER::new( $file, $args );
unless ( exists $args->{trac} ) {
croak "trac is empty.";
}
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
;
}
sub MY::test_via_harness {
package MY;
return insert_kinit_maybe shift->SUPER::test_via_harness(@_);
}
sub MY::test_via_script {
package MY;
return insert_kinit_maybe shift->SUPER::test_via_script(@_);
}
WriteMakefile(
DEFINE => "$KRB5_DEFS",
INC => "-I$KRB5_INCDIR $KRB5_EXTRAINCS",
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
EOP
# Add constant definition to Makefile for our path
sub MY::constants {
package MY;
my $inherited = shift->SUPER::constants(@_);
# Define additional constant
$inherited .= "\nKDB5_UTIL_PATH = $kdb5_util_path\n";
$inherited;
}
# We need our PL script to be given the above constant as an argument
sub MY::processPL {
package MY;
my $inherited = shift->SUPER::processPL(@_);
# Add Makefile as a dependancy of KDB.pm
$inherited =~ s{(^KDB.pm\s*::)\s*}
{$1 Makefile }m
or die "Error: no target for KDB.pm in: $inherited";
view release on metacpan or search on metacpan
lib/Authen/NTLM/HTTP.pm view on Meta::CPAN
####################################################################
sub http_negotiate($$)
{
my $self = shift;
my $flags = shift;
my $str = encode_base64($self->SUPER::negotiate_msg($flags));
$str =~ s/\s//g;
return "Authorization: NTLM " . $str;
}
###########################################################################
lib/Authen/NTLM/HTTP.pm view on Meta::CPAN
sub http_parse_negotiate($$)
{
my ($self, $pkt) = @_;
$pkt =~ s/Authorization: NTLM //;
my $str = decode_base64($pkt);
return $self->SUPER::parse_negotiate($str);
}
####################################################################
# http_challenge composes the NTLM-over-HTTP challenge tag line. It#
# takes NTLM Negotiation Flags as an argument. #
lib/Authen/NTLM/HTTP.pm view on Meta::CPAN
my $flags = $_[1];
my $nonce = undef;
my $str;
$nonce = $_[2] if @_ == 3;
if (defined $nonce) {
$str = encode_base64($self->SUPER::challenge_msg($flags, $nonce));
}
else {
$str = encode_base64($self->SUPER::challenge_msg($flags));
}
$str =~ s/\s//g;
return $self->{'type'} . "-Authenticate: NTLM " . $str;
}
lib/Authen/NTLM/HTTP.pm view on Meta::CPAN
{
my ($self, $pkt) = @_;
my $str = $self->{'type'} . "-Authenticate: NTLM ";
$pkt =~ s/$str//;
$str = decode_base64($pkt);
return $self->SUPER::parse_challenge($str);
}
###########################################################################
# http_auth creates the NTLM-over-HTTP response to an NTLM challenge from #
# the server. It takes 2 arguments: $nonce obtained from parse_challenge #
lib/Authen/NTLM/HTTP.pm view on Meta::CPAN
sub http_auth($$$)
{
my $self = shift;
my $nonce = shift;
my $flags = shift;
my $str = encode_base64($self->SUPER::auth_msg($nonce, $flags));
$str =~ s/\s//g;;
if ($self->{'type'} eq NTLMSSP_HTTP_PROXY) {
return "Proxy-Authorization: NTLM " . $str;
}
else {
lib/Authen/NTLM/HTTP.pm view on Meta::CPAN
}
else {
$pkt =~ s/Authorization: NTLM //;
}
my $str = decode_base64($pkt);
return $self->SUPER::parse_auth($str);
}
1;
__END__
view release on metacpan or search on metacpan
t/test-lib/MockSP.pm view on Meta::CPAN
sub resolve_artifact {
my $self = shift;
$self->{_test_request_log_} = [];
return $self->SUPER::resolve_artifact(@_);
}
sub test_request_log {
my $self = shift;
t/test-lib/MockSP.pm view on Meta::CPAN
sub now_as_iso {
my $self = shift;
return $self->{_stopped_clock_time_} if $self->{_stopped_clock_time_};
return $self->SUPER::now_as_iso();
}
1;
view release on metacpan or search on metacpan
lib/Authen/Passphrase/SaltedSHA512.pm view on Meta::CPAN
$args{salt_hex} = $salt;
}
# Let the super-class instantiate and handle our preprocessed args.
return $class->SUPER::new(%args);
}
sub generate_salted_sha512 {
my $password = shift;
my $gen = __PACKAGE__->new( passphrase => $password );
view release on metacpan or search on metacpan
lib/Authen/Passphrase/Scrypt.pm view on Meta::CPAN
substr shift, 32
}
sub new {
my ($class, @args) = @_;
my $self = $class->SUPER::new(@args);
$self->logN(14) unless defined $self->logN;
$self->r(16) unless defined $self->r;
$self->p(1) unless defined $self->p;
croak "passphrase not set" unless defined $self->passphrase;
lib/Authen/Passphrase/Scrypt.pm view on Meta::CPAN
my $data = decode_base64 $1;
my ($scrypt, $logN, $r, $p, $salt, $cksum, $hmac) =
unpack 'Z7CNNa32a16a32', $data;
croak 'Invalid Scrypt hash: should start with "scrypt"' unless $scrypt eq 'scrypt';
croak 'Invalid Scrypt hash: bad checksum', unless $cksum eq truncated_sha256 (substr $data, 0, 48);
$class->SUPER::new({data => (substr $data, 0, 64), logN => $logN, r => $r, p => $p, salt => $salt, hmac => $hmac});
}
sub match {
my ($self, $passphrase) = @_;
my $correct_hmac = hmac_sha256 $self->data, truncate_hash $self->compute_hash($passphrase);
view release on metacpan or search on metacpan
lib/Authen/Passphrase/AcceptAll.pm view on Meta::CPAN
=cut
sub from_crypt {
my($class, $passwd) = @_;
return $class->new if $passwd eq "";
return $class->SUPER::from_crypt($passwd);
}
=item Authen::Passphrase::AcceptAll->from_rfc2307(USERPASSWORD)
Generates a new accept-all passphrase recogniser object from an RFC
view release on metacpan or search on metacpan
lib/Authen/Quiz.pm view on Meta::CPAN
use base qw/ Authen::Quiz /;
sub load_quiz {
my $cache= Cache::Memcached->new;
$cache->get('authen_quiz_data') || do {
my $data= $_[0]->SUPER::load_quiz;
$cache->set('authen_quiz_data'=> $data, 600);
data;
};
}
view release on metacpan or search on metacpan
lib/Authen/Simple/CDBI.pm view on Meta::CPAN
unless ( $class->find_column($password) ) {
Carp::croak( qq/Class '$class' does not have a password column named '$password'/ );
}
return $self->SUPER::init($params);
}
sub check {
my ( $self, $username, $password ) = @_;
view release on metacpan or search on metacpan
lib/Authen/Simple/DBM.pm view on Meta::CPAN
}
my $dbm = $self->_open_dbm( $type, $path )
or Carp::croak( qq/Failed to open database '$path'. Reason: '$!'/ );
return $self->SUPER::init($params);
}
sub _open_dbm {
my $self = shift;
my $type = shift || $self->type;
view release on metacpan or search on metacpan
lib/Authen/Simple/IMAP.pm view on Meta::CPAN
croak "Valid protocols are 'IMAP' and 'IMAPS', not '".$args->{protocol}."'";
}
else {
croak "A protocol or an imap object is required";
}
my $obj = $self->SUPER::init($args);
$obj->{imap_args} = \@imap_args;
if ( $is_user_provided_object ) {
$obj->{user_provided_object} = $args->{imap};
}
return $obj;
view release on metacpan or search on metacpan
lib/Authen/Simple/Passwd.pm view on Meta::CPAN
unless ( -r _ ) {
Carp::croak( qq/Passwd path '$path' is not readable by effective uid '$>'./ );
}
return $self->SUPER::init($params);
}
sub check {
my ( $self, $username, $password ) = @_;
view release on metacpan or search on metacpan
lib/Authen/Simple/PlugAuth.pm view on Meta::CPAN
sub init
{
my($self, $param) = @_;
$self->SUPER::init($param);
$self->{client} = PlugAuth::Client::Tiny->new( url => $self->url );
$self;
}
sub check