File Coverage

blib/lib/WWW/Mixi/OO/Login.pm

Criterion	Covered	Total	%
statement	9	13	69.2
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod	2	2	100.0
total	14	20	70.0

# -*- cperl -*-
# copyright (C) 2005 Topia . all rights reserved.
# This is free software; you can redistribute it and/or modify it
#   under the same terms as Perl itself.
# $Id: Login.pm 96 2005-02-04 16:55:48Z topia $
# $URL: file:///usr/minetools/svnroot/mixi/trunk/WWW-Mixi-OO/lib/WWW/Mixi/OO/Login.pm $
package WWW::Mixi::OO::Login;
use strict;
use warnings;
use base qw(WWW::Mixi::OO::Page);

=head1 NAME

WWW::Mixi::OO::Login - WWW::Mixi::OO's L class

=head1 SYNOPSIS

  my $page = $mixi->page('login');
  $page->do_login;

=head1 DESCRIPTION

login page handler

=head1 METHODS

=over 4

=cut

=item uri

see parent class (L).

=cut

sub uri { shift->absolute_uri('login') }

=item do_login

  $page->do_login;

login to mixi.

=cut

sub do_login {
    my $this = shift;

    my %form = (
	email => $this->session->email,
	password => $this->session->password,
	next_url => $this->page('home')->uri,
       );

    $this->post($this->uri, %form);
}

1;

__END__