ASP4
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
based on the "routes" segment of asp4-config.json.
- No documentation about this yet.
2010-03-22 v1.024
- $Request->Reroute() with additional querystring parameters was not adding
those extra parameters to $Form. Now it does.
2010-03-08 v1.023
- ASP4::HTTPContext now checks to see if any RequestFilters match a uri before
returning a 404. This is helpful for SEO optimizations.
- New feature: $Request->Reroute("/new-uri/?foo=bar")
* Also very useful for SEO.
2010-03-08 v1.022
- asphelper's final instructions are now more clear and concise.
- Fixes a bug that caused active sessions to timeout as though inactive simply
because they were not changed before the timeout occurred. Now, $Session->save()
checks to see if it's been more than 60 seconds since the last time the __lastMod
was changed - and if it has been more than 60 seconds, the session is saved
and the __lastMod value is updated to time() - thus preventing expiry of
active sessions.
inc/Module/Install.pm view on Meta::CPAN
Please correct this, then run $0 again.
END_DIE
# Build.PL was formerly supported, but no longer is due to excessive
# difficulty in implementing every single feature twice.
if ( $0 =~ /Build.PL$/i ) { die <<"END_DIE" }
Module::Install no longer supports Build.PL.
It was impossible to maintain duel backends, and has been deprecated.
Please remove all Build.PL files and only use the Makefile.PL installer.
END_DIE
inc/Module/Install/Metadata.pm view on Meta::CPAN
require Module::Build;
my $build = Module::Build->new(
dist_name => $self->name,
dist_version => $self->version,
license => $self->license,
);
$self->provides( %{ $build->find_dist_packages || {} } );
}
sub feature {
my $self = shift;
my $name = shift;
my $features = ( $self->{values}{features} ||= [] );
my $mods;
if ( @_ == 1 and ref( $_[0] ) ) {
# The user used ->feature like ->features by passing in the second
# argument as a reference. Accomodate for that.
$mods = $_[0];
} else {
$mods = \@_;
}
my $count = 0;
push @$features, (
$name => [
map {
ref($_) ? ( ref($_) eq 'HASH' ) ? %$_ : @$_ : $_
} @$mods
]
);
return @$features;
}
sub features {
my $self = shift;
while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
$self->feature( $name, @$mods );
}
return $self->{values}{features}
? @{ $self->{values}{features} }
: ();
}
sub no_index {
my $self = shift;
my $type = shift;
push @{ $self->{values}{no_index}{$type} }, @_ if $type;
return $self->{values}{no_index};
}
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.568 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )