Games::Nintendo::Wii::Mii::Data::Profile - Mii's profile data

Games-Nintendo-Wii-Mii documentation

Contained in the Games-Nintendo-Wii-Mii distribution.

Index

NAME
VERSION
METHODS
- new
- gender
- birth_date
- birth_month
- favorite_color
- name
- mii_id
- system_id
- systemd_id_checksum8
- mingle
- creator_name
AUTHOR
BUGS
COPYRIGHT & LICENSE

Code Index:

package Games::Nintendo::Wii::Mii::Data::Profile
- new
EOF

NAME

Games::Nintendo::Wii::Mii::Data::Profile - Mii's profile data

VERSION

version 0.01

METHODS

new

gender

birth_date

birth_month

favorite_color

name

mii_id

system_id

systemd_id_checksum8

mingle

creator_name

AUTHOR

Toru Yamaguchi, <zigorou@cpan.org>

BUGS

Please report any bugs or feature requests to bug-games-nintendo-wii-mii-data-profile@rt.cpan.org, or through the web interface at http://rt.cpan.org. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

COPYRIGHT & LICENSE

Copyright 2007 Toru Yamaguchi, All Rights Reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Games-Nintendo-Wii-Mii documentation

Contained in the Games-Nintendo-Wii-Mii distribution.

package Games::Nintendo::Wii::Mii::Data::Profile;

use strict;
use warnings;

use base qw(Class::Accessor::Fast);

use Readonly;

Readonly our @ACCESSORS => qw/
                                 gender
                                 birth_date
                                 birth_month
                                 favorite_color
                                 name
                                 mii_id
                                 system_id
                                 system_id_checksum8
                                 mingle
                                 creator_name
                                 invalid
                             /;

__PACKAGE__->mk_accessors(@ACCESSORS);

our $VERSION = '0.01';

sub new {
    my ($class, $args) = @_;

    $args ||= {};
    $args->{gender} ||= 1;
    $args->{birth_date} ||= 5;
    $args->{birth_month} ||= 4;
    $args->{favorite_color} ||= 4;
    $args->{mingle} ||= 1;
    $args->{valid} ||= 1;

    my $self = $class->SUPER::new($args);

    return $self;
}

1; # End of Games::Nintendo::Wii::Mii::Data::Profile