Games::Nintendo::Wii::Mii::Data::Eyebrow - The fantastic new Games::Nintendo::Wii::Mii::Data::Eyebrow!

Games-Nintendo-Wii-Mii documentation

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

Index

NAME
VERSION
METHODS
AUTHOR
BUGS
COPYRIGHT & LICENSE

Code Index:

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

NAME

Games::Nintendo::Wii::Mii::Data::Eyebrow - The fantastic new Games::Nintendo::Wii::Mii::Data::Eyebrow!

VERSION

version 0.01

METHODS

new

eyebrow_type

eyebrow_rotation

eyebrow_color

eyebrow_size

eyebrow_vertical_position

eyebrow_horizon_spacing

AUTHOR

Toru Yamaguchi, <zigorou@cpan.org>

BUGS

Please report any bugs or feature requests to bug-games-nintendo-wii-mii-data-eyebrow@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::Eyebrow;

use strict;
use warnings;

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

use Readonly;

Readonly our @ACCESSORS => qw/
                                eyebrow_type
                                eyebrow_rotation
                                eyebrow_color
                                eyebrow_size
                                eyebrow_vertical_position
                                eyebrow_horizon_spacing
                            /;

__PACKAGE__->mk_accessors(@ACCESSORS);

our $VERSION = '0.01';

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

    $args ||= {};

    $args->{eyebrow_type} ||= 5;
    $args->{eyebrow_rotation} ||= 4;
    $args->{eyebrow_color} ||= 3;
    $args->{eyebrow_size} ||= 4;
    $args->{eyebrow_vertical_position} ||= 5;
    $args->{eyebrow_horizon_spacing} ||= 4;

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

    return $self;
}

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