ÿØÿà JFIF ÿÛ „ ( %!1!%*+... 983,7(-.-
PK `]1. . RecursiveDependency.pmnu [ # -*- 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;
PK `]*^ blocked_urllist.pmnu [ # -*- 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;
PK `]ܑH yaml_process_error.pmnu [ # -*- 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;
PK `]T yaml_not_installed.pmnu [ # -*- 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;
PK
]W W .packlistnu [ /usr/local/share/man/man3/Test::Exception.3pm
/usr/local/share/perl5/Test/Exception.pm
PK H]
; ; exception-c.rinu [ U:RDoc::AnyMethod[iI"exception:ETI"Exception::exception;TT: privateo: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"6exc.exception([string]) -> an_exception or exc
;T0[ I" (*args);T@FI"Exception;TcRDoc::NormalClass00PK H]: : exception-i.rinu [ U:RDoc::AnyMethod[iI"exception:ETI"Exception#exception;TF: privateo: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"6exc.exception([string]) -> an_exception or exc
;T0[ I" (*args);T@FI"Exception;TcRDoc::NormalClass00PK H]^ ^ inspect-i.rinu [ U:RDoc::AnyMethod[iI" inspect:ETI"Exception#inspect;TF: privateo:RDoc::Markup::Document: @parts[o: RDoc::Markup::Paragraph; [I"4Return 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::NormalClass00PK H]K0 json_create-c.rinu [ U:RDoc::AnyMethod[iI"json_create:ETI"Exception::json_create;TT: privateo: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::NormalClass00PK H]IOY set_backtrace-i.rinu [ U:RDoc::AnyMethod[iI"set_backtrace:ETI" Exception#set_backtrace;TF: privateo: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::NormalClass00PK H] new-c.rinu [ U:RDoc::AnyMethod[iI"new:ETI"Exception::new;TT: privateo: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"aException.new(msg = nil) -> exception
Exception.exception(msg = nil) -> exception
;T0[ I" (*args);T@FI"Exception;TcRDoc::NormalClass00PK H]2 backtrace-i.rinu [ U:RDoc::AnyMethod[iI"backtrace:ETI"Exception#backtrace;TF: privateo: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;
0o;
; [I"=In the case no backtrace has been set, +nil+ is returned;T@o; ; [I" ex = StandardError.new
;TI"ex.backtrace
;TI" #=> nil;T;
0:
@fileI" error.c;T:0@omit_headings_from_table_of_contents_below0I",exception.backtrace -> array or nil
;T0[ I"();T@0FI"Exception;TcRDoc::NormalClass00PK H]ƣ s s to_tty%3f-c.rinu [ U:RDoc::AnyMethod[iI" to_tty?:ETI"Exception::to_tty?;TT: privateo:RDoc::Markup::Document: @parts[o: RDoc::Markup::Paragraph; [I"@Returns +true+ if exception messages will be sent to a tty.;T:
@fileI" error.c;T:0@omit_headings_from_table_of_contents_below0I"+Exception.to_tty? -> true or false
;T0[ I"();T@FI"Exception;TcRDoc::NormalClass00PK H]!4 full_message-i.rinu [ U:RDoc::AnyMethod[iI"full_message:ETI"Exception#full_message;TF: privateo:RDoc::Markup::Document: @parts[ o: RDoc::Markup::Paragraph; [I".Returns formatted string of _exception_. ;TI"KThe returned string is formatted using the same format that Ruby uses ;TI"4when printing an uncaught exceptions to stderr.;To: RDoc::Markup::BlankLine o;
; [I"FIf _highlight_ is +true+ the default error handler will send the ;TI"messages to a tty.;T@o;
; [I"I_order_ must be either of +:top+ or +:bottom+, and places the error ;TI"Gmessage and the innermost backtrace come at the top or the bottom.;T@o;
; [I"HThe default values of these options depend on $stderr ;TI",and its +tty?+ at the timing of a call.;T:
@fileI" error.c;T:0@omit_headings_from_table_of_contents_below0I"Rexception.full_message(highlight: bool, order: [:top or :bottom]) -> string
;T0[ I"(p1 = {});T@ FI"Exception;TcRDoc::NormalClass00PK H]| as_json-i.rinu [ U:RDoc::AnyMethod[iI" as_json:ETI"Exception#as_json;TF: privateo: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::NormalClass00PK H]4V to_json-i.rinu [ U:RDoc::AnyMethod[iI" to_json:ETI"Exception#to_json;TF: privateo: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::NormalClass00PK H]!~ ~ to_s-i.rinu [ U:RDoc::AnyMethod[iI" to_s:ETI"Exception#to_s;TF: privateo: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::NormalClass00PK H]6&ϩ message-i.rinu [ U:RDoc::AnyMethod[iI" message:ETI"Exception#message;TF: privateo: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.;T:
@fileI" error.c;T:0@omit_headings_from_table_of_contents_below0I"$exception.message -> string
;T0[ I"();T@FI"Exception;TcRDoc::NormalClass00PK H] ~T T cdesc-Exception.rinu [ U:RDoc::NormalClass[iI"Exception:ET@I" Object;To:RDoc::Markup::Document: @parts[o;;[#o: RDoc::Markup::Paragraph;[I"I\Class Exception and its subclasses are used to communicate between ;TI"OKernel#raise and +rescue+ statements in begin ... end blocks.;To: RDoc::Markup::BlankLine o; ;[I"@An Exception object carries information about an exception:;To:RDoc::Markup::List:
@type: BULLET: @items[o:RDoc::Markup::ListItem: @label0;[o; ;[I"&Its type (the exception's class).;To;;0;[o; ;[I"%An optional descriptive message.;To;;0;[o; ;[I"$Optional backtrace information.;T@o; ;[I"YSome built-in subclasses of Exception have additional methods: e.g., NameError#name.;T@S:RDoc::Markup::Heading:
leveli: textI"
Defaults;T@o; ;[I"8Two Ruby statements have default exception classes:;To; ; ;
;[o;;0;[o; ;[I"'+raise+: defaults to RuntimeError.;To;;0;[o; ;[I")+rescue+: defaults to StandardError.;T@S;;i;I"Global Variables;T@o; ;[I"IWhen an exception has been raised but not yet handled (in +rescue+, ;TI"I+ensure+, +at_exit+ and +END+ blocks), two global variables are set:;To; ; ;
;[o;;0;[o; ;[I"4$! contains the current exception.;To;;0;[o; ;[I",$@ contains its backtrace.;T@S;;i;I"Custom Exceptions;T@o; ;[I"5To provide additional or alternate information, ;TI"3a program may create custom exception classes ;TI"5that derive from the built-in exception classes.;T@o; ;[ I"SA good practice is for a library to create a single "generic" exception class ;TI"=(typically a subclass of StandardError or RuntimeError) ;TI"Band have its other exception classes derive from that class. ;TI"XThis allows the user to rescue the generic exception, thus catching 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 < ::StandardError
;TI" end
;TI"
;TI"! class WidgetError < Error
;TI" end
;TI"
;TI" class FrobError < Error
;TI" end
;TI"
;TI" end
;T: @format0o; ;[I"PTo handle both MyLibrary::WidgetError and MyLibrary::FrobError the library ;TI"&user can rescue MyLibrary::Error.;T@S;;i;I" Built-In Exception Classes;T@o; ;[I".The built-in subclasses of Exception are:;T@o; ; ;
;[
o;;0;[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;To; ; ;
;[o;;0;[o; ;[I"ArgumentError;To; ; ;
;[o;;0;[o; ;[I"UncaughtThrowError;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; ; ;
;[o;;0;[o; ;[I"ClosedQueueError;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;To; ; ;
;[o;;0;[o; ;[I"FrozenError;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;T:
@fileI" error.c;T:0@omit_headings_from_table_of_contents_below0o;;[ ;I"'ext/json/lib/json/add/exception.rb;T;0;0;0[ [ [ [[I"
class;T[[: public[ [:protected[ [: private[ [I"exception;TI" error.c;T[I"json_create;TI"'ext/json/lib/json/add/exception.rb;T[I"new;T@I[I" to_tty?;T@I[I"
instance;T[[;[ [;[ [;[[I"==;T@I[I" as_json;T@L[I"backtrace;T@I[I"backtrace_locations;T@I[I"
cause;T@I[I"exception;T@I[I"full_message;T@I[I" inspect;T@I[I" message;T@I[I"set_backtrace;T@I[I" to_json;T@L[I" to_s;T@I[ [U:RDoc::Context::Section[i 0o;;[ ;0;0[I" error.c;TI"'ext/json/lib/json/add/exception.rb;T@9cRDoc::TopLevelPK H]L
cause-i.rinu [ U:RDoc::AnyMethod[iI"
cause:ETI"Exception#cause;TF: privateo:RDoc::Markup::Document: @parts[o: RDoc::Markup::Paragraph; [I"PReturns the previous exception ($!) at the time this exception was raised. ;TI"QThis is useful for wrapping exceptions and retaining the original exception ;TI"information.;T:
@fileI" error.c;T:0@omit_headings_from_table_of_contents_below0I".exception.cause -> an_exception or nil
;T0[ I"();T@FI"Exception;TcRDoc::NormalClass00PK H]M5x %3d%3d-i.rinu [ U:RDoc::AnyMethod[iI"==:ETI"Exception#==;TF: privateo:RDoc::Markup::Document: @parts[o: RDoc::Markup::Paragraph; [I";Equality---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::NormalClass00PK H]_l l backtrace_locations-i.rinu [ U:RDoc::AnyMethod[iI"backtrace_locations:ETI""Exception#backtrace_locations;TF: privateo:RDoc::Markup::Document: @parts[o: RDoc::Markup::Paragraph; [I"IReturns any backtrace associated with the exception. This method is ;TI"Fsimilar to Exception#backtrace, but the backtrace is an array of ;TI"!Thread::Backtrace::Location.;To: RDoc::Markup::BlankLine o;
; [I">This method is not affected by Exception#set_backtrace().;T:
@fileI" error.c;T:0@omit_headings_from_table_of_contents_below0I"6exception.backtrace_locations -> array or nil
;T0[ I"();T@FI"Exception;TcRDoc::NormalClass00PK `]1. . RecursiveDependency.pmnu [ PK `]*^ t blocked_urllist.pmnu [ PK `]ܑH N yaml_process_error.pmnu [ PK `]T : yaml_not_installed.pmnu [ PK
]W W i .packlistnu [ PK H]
; ; exception-c.rinu [ PK H]: : r exception-i.rinu [ PK H]^ ^ ! inspect-i.rinu [ PK H]K0 # json_create-c.rinu [ PK H]IOY % set_backtrace-i.rinu [ PK H] ' new-c.rinu [ PK H]2 ) backtrace-i.rinu [ PK H]ƣ s s . to_tty%3f-c.rinu [ PK H]!4 / full_message-i.rinu [ PK H]| 3 as_json-i.rinu [ PK H]4V n5 to_json-i.rinu [ PK H]!~ ~ ?7 to_s-i.rinu [ PK H]6&ϩ 8 message-i.rinu [ PK H] ~T T : cdesc-Exception.rinu [ PK H]L
qM cause-i.rinu [ PK H]M5x O %3d%3d-i.rinu [ PK H]_l l Q backtrace_locations-i.rinu [ PK lT