ÿØÿà JFIF ÿÛ „ ( %!1!%*+... 983,7(-.-
.packlist 0000644 00000000127 15234661263 0006367 0 ustar 00 /usr/local/share/man/man3/Test::Exception.3pm
/usr/local/share/perl5/Test/Exception.pm
RecursiveDependency.pm 0000644 00000007456 15234757232 0011076 0 ustar 00 # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
# vim: ts=4 sts=4 sw=4:
package CPAN::Exception::RecursiveDependency;
use strict;
use overload '""' => "as_string";
use vars qw(
$VERSION
);
$VERSION = "5.5001";
{
package CPAN::Exception::RecursiveDependency::na;
use overload '""' => "as_string";
sub new { bless {}, shift };
sub as_string { "N/A" };
}
my $NA = CPAN::Exception::RecursiveDependency::na->new;
# a module sees its distribution (no version)
# a distribution sees its prereqs (which are module names) (usually with versions)
# a bundle sees its module names and/or its distributions (no version)
sub new {
my($class) = shift;
my($deps_arg) = shift;
my (@deps,%seen,$loop_starts_with);
DCHAIN: for my $dep (@$deps_arg) {
push @deps, {name => $dep, display_as => $dep};
if ($seen{$dep}++) {
$loop_starts_with = $dep;
last DCHAIN;
}
}
my $in_loop = 0;
my %mark;
DWALK: for my $i (0..$#deps) {
my $x = $deps[$i]{name};
$in_loop ||= $loop_starts_with && $x eq $loop_starts_with;
my $xo = CPAN::Shell->expandany($x) or next;
if ($xo->isa("CPAN::Module")) {
my $have = $xo->inst_version || $NA;
my($want,$d,$want_type);
if ($i>0 and $d = $deps[$i-1]{name}) {
my $do = CPAN::Shell->expandany($d);
$want = $do->{prereq_pm}{requires}{$x};
if (defined $want) {
$want_type = "requires: ";
} else {
$want = $do->{prereq_pm}{build_requires}{$x};
if (defined $want) {
$want_type = "build_requires: ";
} else {
$want_type = "unknown status";
$want = "???";
}
}
} else {
$want = $xo->cpan_version;
$want_type = "want: ";
}
$deps[$i]{have} = $have;
$deps[$i]{want_type} = $want_type;
$deps[$i]{want} = $want;
$deps[$i]{display_as} = "$x (have: $have; $want_type$want)";
if ((! ref $have || !$have->isa('CPAN::Exception::RecursiveDependency::na'))
&& CPAN::Version->vge($have, $want)) {
# https://rt.cpan.org/Ticket/Display.html?id=115340
undef $loop_starts_with;
last DWALK;
}
} elsif ($xo->isa("CPAN::Distribution")) {
my $pretty = $deps[$i]{display_as} = $xo->pretty_id;
my $mark_as;
if ($in_loop) {
$mark_as = CPAN::Distrostatus->new("NO cannot resolve circular dependency");
} else {
$mark_as = CPAN::Distrostatus->new("NO one dependency ($loop_starts_with) is a circular dependency");
}
$mark{$pretty} = { xo => $xo, mark_as => $mark_as };
}
}
if ($loop_starts_with) {
while (my($k,$v) = each %mark) {
my $xo = $v->{xo};
$xo->{make} = $v->{mark_as};
$xo->store_persistent_state; # otherwise I will not reach
# all involved parties for
# the next session
}
}
bless { deps => \@deps, loop_starts_with => $loop_starts_with }, $class;
}
sub is_resolvable {
! defined shift->{loop_starts_with};
}
sub as_string {
my($self) = shift;
my $deps = $self->{deps};
my $loop_starts_with = $self->{loop_starts_with};
unless ($loop_starts_with) {
return "--not a recursive/circular dependency--";
}
my $ret = "\nRecursive dependency detected:\n ";
$ret .= join("\n => ", map {$_->{display_as}} @$deps);
$ret .= ".\nCannot resolve.\n";
$ret;
}
1;
blocked_urllist.pm 0000644 00000001630 15234757232 0010275 0 ustar 00 # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
# vim: ts=4 sts=4 sw=4:
package CPAN::Exception::blocked_urllist;
use strict;
use overload '""' => "as_string";
use vars qw(
$VERSION
);
$VERSION = "1.001";
sub new {
my($class) = @_;
bless {}, $class;
}
sub as_string {
my($self) = shift;
if ($CPAN::Config->{connect_to_internet_ok}) {
return qq{
You have not configured a urllist for CPAN mirrors. Configure it with
o conf init urllist
};
} else {
return qq{
You have not configured a urllist and do not allow connections to the
internet to get a list of mirrors. If you wish to get a list of CPAN
mirrors to pick from, use this command
o conf init connect_to_internet_ok urllist
If you do not wish to get a list of mirrors and would prefer to set
your urllist manually, use just this command instead
o conf init urllist
};
}
}
1;
yaml_process_error.pm 0000644 00000003247 15234757232 0011033 0 ustar 00 # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
# vim: ts=4 sts=4 sw=4:
package CPAN::Exception::yaml_process_error;
use strict;
use overload '""' => "as_string";
use vars qw(
$VERSION
);
$VERSION = "5.5";
sub new {
my($class,$module,$file,$during,$error) = @_;
# my $at = Carp::longmess(""); # XXX find something more beautiful
bless { module => $module,
file => $file,
during => $during,
error => $error,
# at => $at,
}, $class;
}
sub as_string {
my($self) = shift;
if ($self->{during}) {
if ($self->{file}) {
if ($self->{module}) {
if ($self->{error}) {
return "Alert: While trying to '$self->{during}' YAML file\n".
" '$self->{file}'\n".
"with '$self->{module}' the following error was encountered:\n".
" $self->{error}\n";
} else {
return "Alert: While trying to '$self->{during}' YAML file\n".
" '$self->{file}'\n".
"with '$self->{module}' some unknown error was encountered\n";
}
} else {
return "Alert: While trying to '$self->{during}' YAML file\n".
" '$self->{file}'\n".
"some unknown error was encountered\n";
}
} else {
return "Alert: While trying to '$self->{during}' some YAML file\n".
"some unknown error was encountered\n";
}
} else {
return "Alert: unknown error encountered\n";
}
}
1;
yaml_not_installed.pm 0000644 00000000752 15234757232 0011001 0 ustar 00 # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
# vim: ts=4 sts=4 sw=4:
package CPAN::Exception::yaml_not_installed;
use strict;
use overload '""' => "as_string";
use vars qw(
$VERSION
);
$VERSION = "5.5";
sub new {
my($class,$module,$file,$during) = @_;
bless { module => $module, file => $file, during => $during }, $class;
}
sub as_string {
my($self) = shift;
"'$self->{module}' not installed, cannot $self->{during} '$self->{file}'\n";
}
1;
HTTP.php 0000644 00000002613 15235243770 0006046 0 ustar 00 reason = $reason;
}
$message = sprintf('%d %s', $this->code, $this->reason);
parent::__construct($message, 'httpresponse', $data, $this->code);
}
/**
* Get the status message
*/
public function getReason() {
return $this->reason;
}
/**
* Get the correct exception class for a given error code
*
* @param int|bool $code HTTP status code, or false if unavailable
* @return string Exception class name to use
*/
public static function get_class($code) {
if (!$code) {
return 'Requests_Exception_HTTP_Unknown';
}
$class = sprintf('Requests_Exception_HTTP_%d', $code);
if (class_exists($class)) {
return $class;
}
return 'Requests_Exception_HTTP_Unknown';
}
} Transport.php 0000644 00000000112 15235243770 0007253 0 ustar 00 code = $data->status_code;
}
parent::__construct($reason, $data);
}
} HTTP/412.php 0000644 00000000633 15235243770 0006354 0 ustar 00 type = $type;
}
if ($code !== null) {
$this->code = $code;
}
if ($message !== null) {
$this->reason = $message;
}
$message = sprintf('%d %s', $this->code, $this->reason);
parent::__construct($message, $this->type, $data, $this->code);
}
/**
* Get the error message
*/
public function getReason() {
return $this->reason;
}
}
exception-c.ri 0000644 00000001070 15235244024 0007315 0 ustar 00 U:RDoc::AnyMethod[iI"exception:ETI"Exception::exception;TT: publico:RDoc::Markup::Document: @parts[o: RDoc::Markup::Paragraph; [ I"GWith no argument, or if the argument is the same as the receiver, ;TI"2return the receiver. Otherwise, create a new ;TI"Dexception object of the same class as the receiver, but with a ;TI"1message equal to string.to_str.;T:
@fileI" error.c;T:0@omit_headings_from_table_of_contents_below0I"4exc.exception(string) -> an_exception or exc
;T0[ I" (*args);T@FI"Exception;TcRDoc::NormalClass00 exception-i.ri 0000644 00000001067 15235244024 0007331 0 ustar 00 U:RDoc::AnyMethod[iI"exception:ETI"Exception#exception;TF: publico:RDoc::Markup::Document: @parts[o: RDoc::Markup::Paragraph; [ I"GWith no argument, or if the argument is the same as the receiver, ;TI"2return the receiver. Otherwise, create a new ;TI"Dexception object of the same class as the receiver, but with a ;TI"1message equal to string.to_str.;T:
@fileI" error.c;T:0@omit_headings_from_table_of_contents_below0I"4exc.exception(string) -> an_exception or exc
;T0[ I" (*args);T@FI"Exception;TcRDoc::NormalClass00 inspect-i.ri 0000644 00000000534 15235244024 0006776 0 ustar 00 U:RDoc::AnyMethod[iI" inspect:ETI"Exception#inspect;TF: publico:RDoc::Markup::Document: @parts[o: RDoc::Markup::Paragraph; [I"3Return this exception's class name and message;T:
@fileI" error.c;T:0@omit_headings_from_table_of_contents_below0I"#exception.inspect -> string
;T0[ I"();T@FI"Exception;TcRDoc::NormalClass00 json_create-c.ri 0000644 00000000712 15235244024 0007615 0 ustar 00 U:RDoc::AnyMethod[iI"json_create:EFI"Exception::json_create;TT: publico:RDoc::Markup::Document: @parts[o: RDoc::Markup::Paragraph; [I"PDeserializes JSON string by constructing new Exception object with message ;TI"Im and backtrace b serialized with to_json;T:
@fileI"'ext/json/lib/json/add/exception.rb;T:0@omit_headings_from_table_of_contents_below000[ I"
(object);T@FI"Exception;TcRDoc::NormalClass00 set_backtrace-i.ri 0000644 00000001000 15235244024 0010110 0 ustar 00 U:RDoc::AnyMethod[iI"set_backtrace:ETI" Exception#set_backtrace;TF: publico:RDoc::Markup::Document: @parts[o: RDoc::Markup::Paragraph; [I"PSets the backtrace information associated with +exc+. The +backtrace+ must ;TI"Nbe an array of String objects or a single String in the format described ;TI" in Exception#backtrace.;T:
@fileI" error.c;T:0@omit_headings_from_table_of_contents_below0I".exc.set_backtrace(backtrace) -> array
;T0[ I" (p1);T@FI"Exception;TcRDoc::NormalClass00new-c.ri 0000644 00000000602 15235244024 0006110 0 ustar 00 U:RDoc::AnyMethod[iI"new:ETI"Exception::new;TT: publico:RDoc::Markup::Document: @parts[o: RDoc::Markup::Paragraph; [I"=Construct a new Exception object, optionally passing in ;TI"a message.;T:
@fileI" error.c;T:0@omit_headings_from_table_of_contents_below0I".Exception.new(msg = nil) -> exception
;T0[ I"(p1 = v1);T@FI"Exception;TcRDoc::NormalClass00 backtrace-i.ri 0000644 00000001551 15235244024 0007250 0 ustar 00 U:RDoc::AnyMethod[iI"backtrace:ETI"Exception#backtrace;TF: publico:RDoc::Markup::Document: @parts[ o: RDoc::Markup::Paragraph; [I"HReturns any backtrace associated with the exception. The backtrace ;TI"Jis an array of strings, each containing either ``filename:lineNo: in ;TI"'`method''' or ``filename:lineNo.'';To: RDoc::Markup::BlankLine o:RDoc::Markup::Verbatim; [I" def a
;TI" raise "boom"
;TI" end
;TI"
;TI" def b
;TI" a()
;TI" end
;TI"
;TI" begin
;TI" b()
;TI"rescue => detail
;TI") print detail.backtrace.join("\n")
;TI" end
;T: @format0o;
; [I"produces:;T@o; ; [I"prog.rb:2:in `a'
;TI"prog.rb:6:in `b'
;TI"prog.rb:10;T;
0:
@fileI" error.c;T:0@omit_headings_from_table_of_contents_below0I"%exception.backtrace -> array
;T0[ I"();T@(FI"Exception;TcRDoc::NormalClass00 as_json-i.ri 0000644 00000000576 15235244024 0006773 0 ustar 00 U:RDoc::AnyMethod[iI" as_json:EFI"Exception#as_json;TF: publico:RDoc::Markup::Document: @parts[o: RDoc::Markup::Paragraph; [I"OReturns a hash, that will be turned into a JSON object and represent this ;TI" object.;T:
@fileI"'ext/json/lib/json/add/exception.rb;T:0@omit_headings_from_table_of_contents_below000[ I"(*);T@FI"Exception;TcRDoc::NormalClass00 to_json-i.ri 0000644 00000000624 15235244024 0007004 0 ustar 00 U:RDoc::AnyMethod[iI" to_json:EFI"Exception#to_json;TF: publico:RDoc::Markup::Document: @parts[o: RDoc::Markup::Paragraph; [I"OStores class name (Exception) with message m and backtrace array ;TI" b as JSON string;T:
@fileI"'ext/json/lib/json/add/exception.rb;T:0@omit_headings_from_table_of_contents_below000[ I" (*args);T@FI"Exception;TcRDoc::NormalClass00 to_s-i.ri 0000644 00000000575 15235244024 0006302 0 ustar 00 U:RDoc::AnyMethod[iI" to_s:ETI"Exception#to_s;TF: publico:RDoc::Markup::Document: @parts[o: RDoc::Markup::Paragraph; [I"BReturns exception's message (or the name of the exception if ;TI"no message is set).;T:
@fileI" error.c;T:0@omit_headings_from_table_of_contents_below0I"!exception.to_s -> string
;T0[ I"();T@FI"Exception;TcRDoc::NormalClass00 message-i.ri 0000644 00000001023 15235244024 0006747 0 ustar 00 U:RDoc::AnyMethod[iI" message:ETI"Exception#message;TF: publico:RDoc::Markup::Document: @parts[o: RDoc::Markup::Paragraph; [ I"AReturns the result of invoking exception.to_s. ;TI"?Normally this returns the exception's message or name. By ;TI";supplying a to_str method, exceptions are agreeing to ;TI"(be used where Strings are expected.;T:
@fileI" error.c;T:0@omit_headings_from_table_of_contents_below0I"$exception.message -> string
;T0[ I"();T@FI"Exception;TcRDoc::NormalClass00 cdesc-Exception.ri 0000644 00000007674 15235244024 0010134 0 ustar 00 U:RDoc::NormalClass[iI"Exception:ET@I" Object;To:RDoc::Markup::Document: @parts[o;;[o: RDoc::Markup::Paragraph;[ I"DDescendants of class Exception are used to communicate between ;TI"PKernel#raise and +rescue+ statements in begin ... end blocks. ;TI"NException objects carry information about the exception -- its type (the ;TI"Kexception's class name), an optional descriptive string, and optional ;TI"Etraceback information. Exception subclasses may add additional ;TI"%information like NameError#name.;To: RDoc::Markup::BlankLine o; ;[I"NPrograms may make subclasses of Exception, typically of StandardError or ;TI"MRuntimeError, to provide custom classes and add additional information. ;TI"GSee the subclass list below for defaults for +raise+ and +rescue+.;T@o; ;[ I"IWhen an exception has been raised but not yet handled (in +rescue+, ;TI"O+ensure+, +at_exit+ and +END+ blocks) the global variable $! ;TI"Iwill contain the current exception and $@ contains the ;TI"#current exception's backtrace.;T@o; ;[
I"PIt is recommended that a library should have one subclass of StandardError ;TI"Nor RuntimeError and have specific exception types inherit from it. This ;TI"Pallows the user to rescue a generic exception type to catch all exceptions ;TI"Jthe library may raise even if future versions of the library add new ;TI"exception subclasses.;T@o; ;[I"For example:;T@o:RDoc::Markup::Verbatim;[I"class MyLibrary
;TI"" class Error < RuntimeError
;TI" end
;TI"
;TI"! class WidgetError < Error
;TI" end
;TI"
;TI" class FrobError < Error
;TI" end
;TI"
;TI" end
;T: @format0o; ;[I"JTo handle both WidgetError and FrobError the library user can rescue ;TI"MyLibrary::Error.;T@o; ;[I".The built-in subclasses of Exception are:;T@o:RDoc::Markup::List:
@type: BULLET: @items[
o:RDoc::Markup::ListItem: @label0;[o; ;[I"NoMemoryError;To;;0;[o; ;[I"ScriptError;To;
;;;[o;;0;[o; ;[I"LoadError;To;;0;[o; ;[I"NotImplementedError;To;;0;[o; ;[I"SyntaxError;To;;0;[o; ;[I"SecurityError;To;;0;[o; ;[I"SignalException;To;
;;;[o;;0;[o; ;[I"Interrupt;To;;0;[o; ;[I"*StandardError -- default for +rescue+;To;
;;;[o;;0;[o; ;[I"ArgumentError;To;;0;[o; ;[I"EncodingError;To;;0;[o; ;[I"FiberError;To;;0;[o; ;[I" IOError;To;
;;;[o;;0;[o; ;[I"
EOFError;To;;0;[o; ;[I"IndexError;To;
;;;[o;;0;[o; ;[I"
KeyError;To;;0;[o; ;[I"StopIteration;To;;0;[o; ;[I"LocalJumpError;To;;0;[o; ;[I"NameError;To;
;;;[o;;0;[o; ;[I"NoMethodError;To;;0;[o; ;[I"RangeError;To;
;;;[o;;0;[o; ;[I"FloatDomainError;To;;0;[o; ;[I"RegexpError;To;;0;[o; ;[I"(RuntimeError -- default for +raise+;To;;0;[o; ;[I"SystemCallError;To;
;;;[o;;0;[o; ;[I"
Errno::*;To;;0;[o; ;[I"ThreadError;To;;0;[o; ;[I"TypeError;To;;0;[o; ;[I"ZeroDivisionError;To;;0;[o; ;[I"SystemExit;To;;0;[o; ;[I"SystemStackError;To;;0;[o; ;[I""fatal -- impossible to rescue;T:
@fileI" error.c;T:0@omit_headings_from_table_of_contents_below0o;;[o; ;[I",Exception serialization/deserialization;T;I"'ext/json/lib/json/add/exception.rb;T;0;0;0[ [ [ [[I"
class;T[[: public[[I"exception;TI" error.c;T[I"json_create;FI"'ext/json/lib/json/add/exception.rb;T[I"new;T@þ[:protected[ [: private[ [I"
instance;T[[;[[I"==;T@þ[I" as_json;F@[I"backtrace;T@þ[I"backtrace_locations;T@þ[I"
cause;T@þ[I"exception;T@þ[I" inspect;T@þ[I" message;T@þ[I"set_backtrace;T@þ[I" to_json;F@[I" to_s;T@þ[;[ [;[ [ [U:RDoc::Context::Section[i 0o;;[ ;0;0[@ì@ò@òcRDoc::TopLevel cause-i.ri 0000644 00000000340 15235244024 0006424 0 ustar 00 U:RDoc::AnyMethod[iI"
cause:ETI"Exception#cause;TF: publico:RDoc::Markup::Document: @parts[ :
@fileI" error.c;T:0@omit_headings_from_table_of_contents_below000[ I"();T@ FI"Exception;TcRDoc::NormalClass00 %3d%3d-i.ri 0000644 00000000767 15235244024 0006210 0 ustar 00 U:RDoc::AnyMethod[iI"==:ETI"Exception#==;TF: publico:RDoc::Markup::Document: @parts[o: RDoc::Markup::Paragraph; [I"HEquality---If obj is not an Exception, returns ;TI"Pfalse. Otherwise, returns true if exc and ;TI":obj share same class, messages, and backtrace.;T:
@fileI" error.c;T:0@omit_headings_from_table_of_contents_below0I"#exc == obj -> true or false
;T0[ I" (p1);T@FI"Exception;TcRDoc::NormalClass00 backtrace_locations-i.ri 0000644 00000001166 15235244024 0011325 0 ustar 00 U:RDoc::AnyMethod[iI"backtrace_locations:ETI""Exception#backtrace_locations;TF: publico:RDoc::Markup::Document: @parts[o: RDoc::Markup::Paragraph; [I"IReturns any backtrace associated with the exception. This method is ;TI"Esimilar to Exception#backtrace, but the backtrace is an array of;To:RDoc::Markup::Verbatim; [I""Thread::Backtrace::Location.
;T: @format0o;
; [I"CNow, this method is not affected by Exception#set_backtrace().;T:
@fileI" error.c;T:0@omit_headings_from_table_of_contents_below0I"/exception.backtrace_locations -> array
;T0[ I"();T@FI"Exception;TcRDoc::NormalClass00