X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst.pm;h=02c8b715bc1713fbae6f76790f102e4d52d3e0cc;hb=92981fc38b97febba44b43eacbfbb481f1014d08;hp=ef99798bd4e3bfc5e612d19a1eb2399579841290;hpb=3677a4ddb3053561fa232f93fbdf1201b063ba64;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm index ef99798..02c8b71 100644 --- a/lib/Catalyst.pm +++ b/lib/Catalyst.pm @@ -14,6 +14,7 @@ use Catalyst::Request::Upload; use Catalyst::Response; use Catalyst::Utils; use Catalyst::Controller; +use Data::OptList; use Devel::InnerPackage (); use File::stat; use Module::Pluggable::Object (); @@ -78,10 +79,7 @@ __PACKAGE__->stats_class('Catalyst::Stats'); # Remember to update this in Catalyst::Runtime as well! -our $VERSION = '5.80020'; -our $PRETTY_VERSION = $VERSION; - -$VERSION = eval $VERSION; +our $VERSION = '5.80025'; sub import { my ( $class, @arguments ) = @_; @@ -283,14 +281,15 @@ Specifies a comma-delimited list of log levels. =head2 -Stats -Enables statistics collection and reporting. You can also force this setting -from the system environment with CATALYST_STATS or _STATS. The -environment settings override the application, with _STATS having the -highest priority. +Enables statistics collection and reporting. + + use Catalyst qw/-Stats=1/; -e.g. +You can also force this setting from the system environment with CATALYST_STATS +or _STATS. The environment settings override the application, with +_STATS having the highest priority. - use Catalyst qw/-Stats=1/ +Stats are also enabled if L<< debugging |/"-Debug" >> is enabled. =head1 METHODS @@ -640,7 +639,13 @@ If you want to search for controllers, pass in a regexp as the argument. sub controller { my ( $c, $name, @args ) = @_; + my $appclass = ref($c) || $c; if( $name ) { + unless ( ref($name) ) { # Direct component hash lookup to avoid costly regexps + my $comps = $c->components; + my $check = $appclass."::Controller::".$name; + return $c->_filter_component( $comps->{$check}, @args ) if exists $comps->{$check}; + } my @result = $c->_comp_search_prefixes( $name, qw/Controller C/ ); return map { $c->_filter_component( $_, @args ) } @result if ref $name; return $c->_filter_component( $result[ 0 ], @args ); @@ -674,6 +679,11 @@ sub model { my ( $c, $name, @args ) = @_; my $appclass = ref($c) || $c; if( $name ) { + unless ( ref($name) ) { # Direct component hash lookup to avoid costly regexps + my $comps = $c->components; + my $check = $appclass."::Model::".$name; + return $c->_filter_component( $comps->{$check}, @args ) if exists $comps->{$check}; + } my @result = $c->_comp_search_prefixes( $name, qw/Model M/ ); return map { $c->_filter_component( $_, @args ) } @result if ref $name; return $c->_filter_component( $result[ 0 ], @args ); @@ -728,6 +738,11 @@ sub view { my $appclass = ref($c) || $c; if( $name ) { + unless ( ref($name) ) { # Direct component hash lookup to avoid costly regexps + my $comps = $c->components; + my $check = $appclass."::View::".$name; + return $c->_filter_component( $comps->{$check}, @args ) if exists $comps->{$check}; + } my @result = $c->_comp_search_prefixes( $name, qw/View V/ ); return map { $c->_filter_component( $_, @args ) } @result if ref $name; return $c->_filter_component( $result[ 0 ], @args ); @@ -877,7 +892,7 @@ component is constructed. For example: MyApp->config({ 'Model::Foo' => { bar => 'baz', overrides => 'me' } }); - MyApp::Model::Foo->config({ quux => 'frob', 'overrides => 'this' }); + MyApp::Model::Foo->config({ quux => 'frob', overrides => 'this' }); will mean that C receives the following data when constructed: @@ -888,6 +903,21 @@ constructed: overrides => 'me', }); +It's common practice to use a Moose attribute +on the receiving component to access the config value. + + package MyApp::Model::Foo; + + use Moose; + + # this attr will receive 'baz' at construction time + has 'bar' => ( + is => 'rw', + isa => 'Str', + ); + +You can then get the value 'baz' by calling $c->model('Foo')->bar + =cut around config => sub { @@ -1146,7 +1176,7 @@ EOF if ( $class->debug ) { my $name = $class->config->{name} || 'Application'; - $class->log->info("$name powered by Catalyst $Catalyst::PRETTY_VERSION"); + $class->log->info("$name powered by Catalyst $Catalyst::VERSION"); } # Make sure that the application class becomes immutable at this point, @@ -1212,7 +1242,9 @@ sub setup_finalize { Constructs an absolute L object based on the application root, the provided path, and the additional arguments and query parameters provided. -When used as a string, provides a textual URI. +When used as a string, provides a textual URI. If you need more flexibility +than this (i.e. the option to provide relative URIs etc.) see +L. If no arguments are provided, the URI for the current action is returned. To return the current action and also provide @args, use @@ -1266,13 +1298,11 @@ sub uri_for { carp "uri_for called with undef argument" if grep { ! defined $_ } @args; foreach my $arg (@args) { utf8::encode($arg) if utf8::is_utf8($arg); - } - s/([^$URI::uric])/$URI::Escape::escapes{$1}/go for @args; - if (blessed $path) { # Action object only. - s|/|%2F|g for @args; + $arg =~ s/([^$URI::uric])/$URI::Escape::escapes{$1}/go; } if ( blessed($path) ) { # action object + s|/|%2F|g for @args; my $captures = [ map { s|/|%2F|g; $_; } ( scalar @args && ref $args[0] eq 'ARRAY' ? @{ shift(@args) } @@ -1293,8 +1323,6 @@ sub uri_for { $path = '/' if $path eq ''; } - undef($path) if (defined $path && $path eq ''); - unshift(@args, $path); unless (defined $path && $path =~ s!^/!!) { # in-place strip @@ -1500,7 +1528,7 @@ sub welcome_message { models, and views; they can save you a lot of work.

- 
script/${prefix}_create.pl -help
+ 
script/${prefix}_create.pl --help

Also, be sure to check out the vast and growing collection of plugins for Catalyst on CPAN; you are likely to find what you need there. @@ -1743,7 +1771,7 @@ sub finalize { $c->finalize_body; } - $c->log_response; + $c->log_response; if ($c->use_stats) { my $elapsed = sprintf '%f', $c->stats->elapsed; @@ -1877,7 +1905,7 @@ namespaces. sub get_actions { my $c = shift; $c->dispatcher->get_actions( $c, @_ ) } -=head2 $c->handle_request( $class, @arguments ) +=head2 $app->handle_request( @arguments ) Called to handle each HTTP request. @@ -1937,7 +1965,7 @@ sub prepare { #surely this is not the most efficient way to do things... $c->stats($class->stats_class->new)->enable($c->use_stats); - if ( $c->debug ) { + if ( $c->debug || $c->config->{enable_catalyst_header} ) { $c->res->headers->header( 'X-Catalyst' => $Catalyst::VERSION ); } @@ -2084,84 +2112,6 @@ sub prepare_query_parameters { $c->engine->prepare_query_parameters( $c, @_ ); } -=head2 $c->apply_parameter_debug_filters($params) - -=cut - -sub _apply_parameter_debug_filters { - my $c = shift; - my $type = shift; - my $params = shift; - - # take a copy since we don't want to modify the original - my $filtered_params = {%$params}; - - my @filters; - - my $filter_param_config = $c->config->{Debug}->{param_filters}; - if ( ref($filter_param_config) eq 'HASH' ) { - - # filters broken out by parameter type (i.e. body, query, all) - my $type_filters = $filter_param_config->{$type} || []; - $type_filters = [$type_filters] if ref $type_filters ne 'ARRAY'; - - my $all_filters = $filter_param_config->{'all'} || []; - $all_filters = [$all_filters] if ref $all_filters ne 'ARRAY'; - - @filters = $c->_normalize_debug_filters( [ @$type_filters, @$all_filters ] ); - } elsif ($filter_param_config) { - @filters = $c->_normalize_debug_filters($filter_param_config); - } - - # allow callback to modify each parameter - foreach my $k ( keys %$filtered_params ) { - - # apply filters to each param - foreach my $f (@filters) { - - # take a copy of the key to avoid the callback inadvertantly - # modifying things - my $copy_key = $k; - - my $returned = $f->( $copy_key => $filtered_params->{$k} ); - - if ( defined $returned ) { - - # if no value is returned, we assume the filter chose not to modify anything - # otherwise, the returned value is the logged value - $filtered_params->{$k} = $returned; - - last; # skip the rest of the filters since this one matched - } - } - } - return $filtered_params; -} - -# turn debug filters into a list of CodeRef's -sub _normalize_debug_filters { - my $c = shift; - - my @filters = ref( $_[0] ) eq 'ARRAY' ? @{ $_[0] } : grep { defined $_ } @_; - - my @normalized = map { _make_filter_callback($_) } @filters; - - return @normalized; -} - -sub _make_filter_callback { - my $filter = shift; - - my $filter_str = '[FILTERED]'; - if ( ref($filter) eq 'Regexp' ) { - return sub { return $_[0] =~ $filter ? $filter_str : undef }; - } elsif ( ref($filter) eq 'CODE' ) { - return $filter; - } else { - return sub { return $_[0] eq $filter ? $filter_str : undef }; - } -} - =head2 $c->log_request Writes information about the request to the debug logs. This includes: @@ -2172,7 +2122,7 @@ Writes information about the request to the debug logs. This includes: =item * Query keywords (see L) -=item * Request parameters (see L) +=item * Request parameters =item * File uploads @@ -2185,184 +2135,86 @@ sub log_request { return unless $c->debug; - my ( $method, $path, $address ) = ( $c->req->method, $c->req->path, $c->req->address ); + my($dump) = grep {$_->[0] eq 'Request' } $c->dump_these; + my $request = $dump->[1]; + + my ( $method, $path, $address ) = ( $request->method, $request->path, $request->address ); $method ||= ''; $path = '/' unless length $path; $address ||= ''; $c->log->debug(qq/"$method" request for "$path" from "$address"/); - if ( my $keywords = $c->req->query_keywords ) { + $c->log_request_headers($request->headers); + + if ( my $keywords = $request->query_keywords ) { $c->log->debug("Query keywords are: $keywords"); } - $c->log_request_parameters( query => $c->req->query_parameters, body => $c->req->body_parameters ); + $c->log_request_parameters( query => $request->query_parameters, body => $request->body_parameters ); - $c->log_request_uploads; + $c->log_request_uploads($request); } =head2 $c->log_response -Writes information about the response to the debug logs. This includes: - -=over 4 - -=item * Response status code - -=item * Response headers (see L) - -=back - -This logging is not enabled by default. To enable it, you must set a flag in your Catalyst config: - - __PACKAGE__->config( Debug => { log_response => 1 } ); +Writes information about the response to the debug logs by calling +C<< $c->log_response_status_line >> and C<< $c->log_response_headers >>. =cut sub log_response { my $c = shift; - return unless $c->debug && $c->config->{Debug}->{log_response}; - - $c->log->debug('Response Status: ' . $c->response->status); - $c->log_headers('response', $c->response->headers); -} - -=head2 $c->log_request_parameters( query => {}, body => {} ) - -Logs request parameters to debug logs - -If you have sensitive data that you do not want written to the Catalyst -debug logs, you can set options in your config to filter those values out. -There are a few different ways you can set these up depending on what -exactly you need to filter. - -=head3 Filtering parameters by name - -The most basic means of filtering is to add an entry into your config -as shown below. You can have a simple scalar to just filter a -single parameter or an ARRAY ref to filter out multiple params. - - # filters a single param - __PACKAGE__->config( Debug => { param_filters => 'param_name' } ); + return unless $c->debug; - # filters multiple params - __PACKAGE__->config( Debug => { param_filters => [qw(param1 param2)] } ); + my($dump) = grep {$_->[0] eq 'Response' } $c->dump_these; + my $response = $dump->[1]; -When the debug logs are generated for a given request, any parameters -(query or body) that exactly match the specified value(s) will have -their values replaced with '[FILTERED]'. For instance: + $c->log_response_status_line($response); + $c->log_response_headers($response->headers); +} - [debug] Query Parameters are: - .-------------------------------------+--------------------------------------. - | Parameter | Value | - +-------------------------------------+--------------------------------------+ - | password | [FILTERED] | - .-------------------------------------+--------------------------------------. +=head2 $c->log_response_status_line($response) -=head3 Filtering parameters by regular expression +Writes one line of information about the response to the debug logs. This includes: -If you have a set of parameters you need to filter, you can specify a -regular expression that will be used to match against parameter names. +=over 4 - # filters parameters starting with "private." - __PACKAGE__->config( Debug => { param_filters => qr/^private\./ } ); +=item * Response status code - # filters parameters named "param1" or starting with "private." or "secret." - __PACKAGE__->config( Debug => { param_filters => [ 'param1', qr/^private\./, qr/^secret\./ ] } ); +=item * Content-Type header (if present) -Notice on the second example, the arrayref contains a string as well -as two regular expressions. This should DWIM and filter parameters that -match any of the filters specified. +=item * Content-Length header (if present) -=head3 Filtering parameters by callback +=back -If you want even more flexible filtering, you can specify an anonymous -subroutine. The subroutine is given the parameter name and value and -is expected to return the new value that will be shown in the debug log. -An C return value indicates that no change should be made to -the value. +=cut - # transform any "password" param to "********" - __PACKAGE__->config( - Debug => { - param_filters => sub { my ( $k, $v ) = @_; return unless $k eq 'password'; return '*' x 8; } - } - ); +sub log_response_status_line { + my ($c, $response) = @_; - # combine several param filtering methods - __PACKAGE__->config( - Debug => { - param_filters => [ - 'simple_param_name', - qr/^private\./, - sub { my ( $k, $v ) = @_; return unless $k eq 'password'; return '*' x 8; }, - ] - } + $c->log->debug( + sprintf( + 'Response Code: %s; Content-Type: %s; Content-Length: %s', + $response->status || 'unknown', + $response->headers->header('Content-Type') || 'unknown', + $response->headers->header('Content-Length') || 'unknown' + ) ); +} -An example of the debug log for a request with -C would be: - - [debug] Body Parameters are: - .-------------------------------------+--------------------------------------. - | Parameter | Value | - +-------------------------------------+--------------------------------------+ - | some_other_param | some_other_value | - | password | ******** | - .-------------------------------------+--------------------------------------. - -=head3 Filtering by parameter location - -If you have different filters that depend on whether a param was passed -as a query or body param (or as either), you can specify a hashref with -different sets of filters: - - # filters all body parameters - __PACKAGE__->config( Debug => { param_filters => { body => qr// } } ); +=head2 $c->log_response_headers($headers); - # filters query parameters starting with 'private'. - __PACKAGE__->config( Debug => { param_filters => { query => qr/^private\./ } } ); +Hook method which can be wrapped by plugins to log the responseheaders. +No-op in the default implementation. - # filters all parameters (query or body) through the specified callback - __PACKAGE__->config( - Debug => { - param_filters => { - all => sub { return unless $_[0] eq 'fizzbuzz'; return 'FIZZBUZZ FILTER' } - } - } - ); +=cut -Of course, you can use any of the above filtering methods with these -"location-specific" filters: - - # body parameter filters - __PACKAGE__->config( - Debug => { - param_filters => { - body => [ - 'some_param', - qr/^private\./, - sub { return 'XXX' if shift eq 'other_param' } - ] - } - } - ); +sub log_response_headers {} - # query parameter filters - __PACKAGE__->config( - Debug => { - param_filters => { - body => [ - 'some_param', - qr/^private\./, - sub { return 'XXX' if shift eq 'other_param' } - ] - } - } - ); +=head2 $c->log_request_parameters( query => {}, body => {} ) - # query parameter filters - __PACKAGE__->config( Debug => { param_filters => { all => [qw(foo bar)] } } ); +Logs request parameters to debug logs =cut @@ -2370,13 +2222,15 @@ sub log_request_parameters { my $c = shift; my %all_params = @_; + return unless $c->debug; + my $column_width = Catalyst::Utils::term_width() - 44; foreach my $type (qw(query body)) { - my $filtered_params = $c->_apply_parameter_debug_filters( $type, $all_params{$type} || {} ); - next unless keys %$filtered_params; + my $params = $all_params{$type}; + next if ! keys %$params; my $t = Text::SimpleTable->new( [ 35, 'Parameter' ], [ $column_width, 'Value' ] ); - for my $key ( sort keys %$filtered_params ) { - my $param = $filtered_params->{$key}; + for my $key ( sort keys %$params ) { + my $param = $params->{$key}; my $value = defined($param) ? $param : ''; $t->row( $key, ref $value eq 'ARRAY' ? ( join ', ', @$value ) : $value ); } @@ -2394,7 +2248,9 @@ the debug logs. sub log_request_uploads { my $c = shift; - my $uploads = $c->req->uploads; + my $request = shift; + return unless $c->debug; + my $uploads = $request->uploads; if ( keys %$uploads ) { my $t = Text::SimpleTable->new( [ 12, 'Parameter' ], @@ -2412,30 +2268,18 @@ sub log_request_uploads { } } +=head2 $c->log_request_headers($headers); + +Hook method which can be wrapped by plugins to log the request headers. +No-op in the default implementation. + +=cut + +sub log_request_headers {} + =head2 $c->log_headers($type => $headers) -Writes HTTP::Headers to debug logs, applying filters as configured. - -Similarly to how L is configured, you can -configure Catalyst to filter response header values to avoid writing -sensitive data to your logs (e.g. cookie values, etc.). The configuration -works in virtually the same way as the examples in -L. Here are a few specific examples: - - # filters all "Set-Cookie" headers from response logging - __PACKAGE__->config(Debug => { response_header_filters => 'Set-Cookie' } ); - - # filters only the value of the cookie (and leaves the name, path, expiration) - __PACKAGE__->config( - Debug => { - response_header_filters => sub { - my ( $n, $v ) = @_; - return unless $n eq 'Set-Cookie'; - $v =~ s/^.*?;//; - return $v; - }, - } - ); +Logs L (either request or response) to the debug logs. =cut @@ -2444,10 +2288,11 @@ sub log_headers { my $type = shift; my $headers = shift; # an HTTP::Headers instance - my $filtered = $c->_apply_header_debug_filters( $type, $headers ); + return unless $c->debug; - my $t = Text::SimpleTable->new( [ 35, 'Header Name' ], [ 40, 'Value' ] ); - $filtered->scan( + my $column_width = Catalyst::Utils::term_width() - 28; + my $t = Text::SimpleTable->new( [ 15, 'Header Name' ], [ $column_width, 'Value' ] ); + $headers->scan( sub { my ( $name, $value ) = @_; $t->row( $name, $value ); @@ -2456,33 +2301,6 @@ sub log_headers { $c->log->debug( ucfirst($type) . " Headers:\n" . $t->draw ); } -# Applies debug filters to $headers and returns a new HTTP::Headers object which has (potentially) filtered values. -sub _apply_header_debug_filters { - my $c = shift; - my $type = shift; - my $headers = shift; - - my @header_filters = $c->_normalize_debug_filters( $c->config->{Debug}->{ $type . '_header_filters' } ); - my $filtered_headers = HTTP::Headers->new(); - foreach my $name ( $headers->header_field_names ) { - my @values = $headers->header($name); - - # headers can be multi-valued - foreach my $value (@values) { - foreach my $f (@header_filters) { - my $new_value = $f->( $name, $value ); - - # if a defined value is returned, we use that - if ( defined $new_value ) { - $value = $new_value; - last; # skip the rest of the filters - } - } - $filtered_headers->push_header( $name, $value ); - } - } - return $filtered_headers; -} =head2 $c->prepare_read @@ -2605,10 +2423,6 @@ sub setup_components { # we know M::P::O found a file on disk so this is safe Catalyst::Utils::ensure_class_loaded( $component, { ignore_loaded => 1 } ); - - # Needs to be done as soon as the component is loaded, as loading a sub-component - # (next time round the loop) can cause us to get the wrong metaclass.. - $class->_controller_init_base_classes($component); } for my $component (@comps) { @@ -2618,7 +2432,6 @@ sub setup_components { : $class->expand_component_module( $component, $config ); for my $component (@expanded_components) { next if $comps{$component}; - $class->_controller_init_base_classes($component); # Also cover inner packages $class->components->{ $component } = $class->setup_component($component); } } @@ -2671,19 +2484,6 @@ sub expand_component_module { =cut -# FIXME - Ugly, ugly hack to ensure the we force initialize non-moose base classes -# nearest to Catalyst::Controller first, no matter what order stuff happens -# to be loaded. There are TODO tests in Moose for this, see -# f2391d17574eff81d911b97be15ea51080500003 -sub _controller_init_base_classes { - my ($app_class, $component) = @_; - return unless $component->isa('Catalyst::Controller'); - foreach my $class ( reverse @{ mro::get_linear_isa($component) } ) { - Moose::Meta::Class->initialize( $class ) - unless find_meta($class); - } -} - sub setup_component { my( $class, $component ) = @_; @@ -2984,13 +2784,8 @@ the plugin name does not begin with C. if $plugin->isa( 'Catalyst::Component' ); $proto->_plugins->{$plugin} = 1; unless ($instant) { - no strict 'refs'; - if ( my $meta = Class::MOP::get_metaclass_by_name($class) ) { - my @superclasses = ($plugin, $meta->superclasses ); - $meta->superclasses(@superclasses); - } else { - unshift @{"$class\::ISA"}, $plugin; - } + my $meta = Class::MOP::get_metaclass_by_name($class); + $meta->superclasses($plugin, $meta->superclasses); } return $class; } @@ -2999,22 +2794,29 @@ the plugin name does not begin with C. my ( $class, $plugins ) = @_; $class->_plugins( {} ) unless $class->_plugins; - $plugins ||= []; - - my @plugins = Catalyst::Utils::resolve_namespace($class . '::Plugin', 'Catalyst::Plugin', @$plugins); + $plugins = Data::OptList::mkopt($plugins || []); + + my @plugins = map { + [ Catalyst::Utils::resolve_namespace( + $class . '::Plugin', + 'Catalyst::Plugin', $_->[0] + ), + $_->[1], + ] + } @{ $plugins }; for my $plugin ( reverse @plugins ) { - Class::MOP::load_class($plugin); - my $meta = find_meta($plugin); + Class::MOP::load_class($plugin->[0], $plugin->[1]); + my $meta = find_meta($plugin->[0]); next if $meta && $meta->isa('Moose::Meta::Role'); - $class->_register_plugin($plugin); + $class->_register_plugin($plugin->[0]); } my @roles = - map { $_->name } - grep { $_ && blessed($_) && $_->isa('Moose::Meta::Role') } - map { find_meta($_) } + map { $_->[0]->name, $_->[1] } + grep { blessed($_->[0]) && $_->[0]->isa('Moose::Meta::Role') } + map { [find_meta($_->[0]), $_->[1]] } @plugins; Moose::Util::apply_all_roles( @@ -3028,15 +2830,24 @@ the plugin name does not begin with C. Returns an arrayref of the internal execution stack (actions that are currently executing). +=head2 $c->stats + +Returns the current timing statistics object. By default Catalyst uses +L, but can be set otherwise with +L<< stats_class|/"$c->stats_class" >>. + +Even if L<< -Stats|/"-Stats" >> is not enabled, the stats object is still +available. By enabling it with C< $c->stats->enabled(1) >, it can be used to +profile explicitly, although MyApp.pm still won't profile nor output anything +by itself. + =head2 $c->stats_class -Returns or sets the stats (timing statistics) class. +Returns or sets the stats (timing statistics) class. L is used by default. =head2 $c->use_stats -Returns 1 when stats collection is enabled. Stats collection is enabled -when the -Stats options is set, debug is on or when the _STATS -environment variable is set. +Returns 1 when L<< stats collection|/"-Stats" >> is enabled. Note that this is a static method, not an accessor and should be overridden by declaring C in your MyApp.pm, not by calling C<< $c->use_stats(1) >>. @@ -3134,6 +2945,12 @@ to be shown in hit debug tables in the test server. =item * +C - Controlls if the C or C environment +variable should be used for determining the request path. See L +for more information. + +=item * + C - See L. =back @@ -3363,8 +3180,12 @@ random: Roland Lammel Robert Sedlacek C<< >> +SpiceMan: Marcel Montes + sky: Arthur Bergman +szbalint: Balint Szilakszi + t0m: Tomas Doran Ulf Edvinsson @@ -3375,8 +3196,12 @@ Will Hawes C willert: Sebastian Willert +wreis: Wallace Reis + Yuval Kogman, C +rainboxx: Matthias Dietrich, C + =head1 LICENSE This library is free software. You can redistribute it and/or modify it under