The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

package EntryClass;

use base qw( Catalyst::Model::LDAP::Entry );

sub my_method {
    return 1001;
}
1;