Apache2-WebApp-Plugin-Session
view release on metacpan or search on metacpan
Revision history for Perl module Apache2::WebApp::Plugin::Session
0.14
- Migrated project SCM and code repository to Google Project hosting.
- Updated POD and README artistic license URL in COPYRIGHT clause.
- Changed each module version so that I can verify that the PAUSE packager/uploader script works as expected.
- Updated license field in META.yml to fix 'License Unknown' issue on CPAN
- Updated PREREQ_PM module versions in Makefile.PL
- Updated module versions in META.yml requires field.
0.15
- Added $(PREFIX) in Makefile.PL to build script template install path.
0.16
- Updated POD and README
- Updated package Apache2::WebApp minimum version dependencies.
sub _default {
my ($self, $c) = @_;
$c->plugin('Session')->create($c, 'login',
{
username => 'foo',
password => 'bar',
}
);
$c->plugin('CGI')->redirect($c, '/app/example/verify');
}
sub verify {
my ($self, $c) = @_;
my $data_ref = $c->plugin('Session')->get($c, 'login');
$c->request->content_type('text/html');
print $data_ref->{username} . '-' . $data_ref->{password}; # outputs 'foo-bar'
}
1;
lib/Apache2/WebApp/Plugin/Session.pm view on Meta::CPAN
sub _default {
my ($self, $c) = @_;
$c->plugin('Session')->create($c, 'login',
{
username => 'foo',
password => 'bar',
}
);
$c->plugin('CGI')->redirect($c, '/app/example/verify');
}
sub verify {
my ($self, $c) = @_;
my $data_ref = $c->plugin('Session')->get($c, 'login');
$c->request->content_type('text/html');
print $data_ref->{username} . '-' . $data_ref->{password}; # outputs 'foo-bar'
}
1;
( run in 0.354 second using v1.01-cache-2.11-cpan-73692580452 )