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	use warnings;
2	use strict;
3
4	=head1 NAME
5
6	Transports::Action::Logout
7
8	=cut
9
10	package Transports::Action::Logout;
11	use base qw/Transports::Action Jifty::Action/;
12
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;