Transports/Action/Logout.pm

use warnings;
use strict;

=head1 NAME

Transports::Action::Logout

=cut

package Transports::Action::Logout;
use base qw/Transports::Action Jifty::Action/;

=head2 arguments

Return the email and password form fields

=cut

sub arguments { 
    return( { });
}

=head2 take_action

Nuke the current user object

=cut

sub take_action {
    my $self = shift;
    Jifty->web->current_user(undef);
    return 1;
}

1;
1	dpavlin	5	use warnings;
2			use strict;
3
4			=head1 NAME
5
6	dpavlin	20	Transports::Action::Logout
7	dpavlin	5
8			=cut
9
10	dpavlin	20	package Transports::Action::Logout;
11			use base qw/Transports::Action Jifty::Action/;
12	dpavlin	5
13			=head2 arguments
14
15			Return the email and password form fields
16
17			=cut
18
19			sub arguments {
20			return( { });
21			}
22
23			=head2 take_action
24
25			Nuke the current user object
26
27			=cut
28
29			sub take_action {
30			my $self = shift;
31			Jifty->web->current_user(undef);
32			return 1;
33			}
34
35			1;