package Twitch::Channel;
use Moose;

our $VERSION = '0.1';

has name => (
   is  => 'rw',
   isa => 'Str',
);

sub stringify {
   my $self = shift;
   return $self->name;   
}

sub fixup {
   my $self = shift;
   $self->name("#" . $self->name) if ($self->name !~ /^#/);
}

1;

=head1 NAME

Twitch::Channel - Twitch channel infomation

=head1 SYNOPSIS

   An object holding and managing channel information.

=head1 DESCRIPTION

   An object holding and managing channel information for
   a single Twitch channel. 

=head2 Methods

=over 12

=item C<new>

   Returns a new Twitch::Channel object.

=item C<stringify>

   Returns the string containing the channel name. 

=item C<fixup>

   Prepends a '#' to the channel name if it doesn't already
   have one. 

=back

=head1 AUTHOR

   Steel - <http://www.github.com/shionhart/>

=head1 SEE ALSO

L<POE::Component::IRC>, 
L<Moose>, 
L<Twitch>, 
L<Twitch::User>,
L<Twitch::Chat>

=cut