/usr/local/CPAN/IM-Engine/IM/Engine/User/AIM.pm

• package IM::Engine::User::AIM
  • canonical_name
• EOF

package IM::Engine::User::AIM;
use Moose;
use MooseX::StrictConstructor;

extends 'IM::Engine::User';

sub canonical_name {
    my $self = shift;
    my $name = lc $self->name;
    $name =~ s/\s+//g;
    return $name;
}

__PACKAGE__->meta->make_immutable;
no Moose;

1;