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

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

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

extends 'IM::Engine::User';

sub canonical_name {
    my $self = shift;

    my $name = lc $self->name;

    # Strip resource
    $name =~ s{/.*}{};

    return $name;
}

__PACKAGE__->meta->make_immutable;
no Moose;

1;