Adam

 view release on metacpan or  search on metacpan

LICENSE  view on Meta::CPAN

2. You may apply bug fixes, portability fixes and other modifications
derived from the Public Domain or from the Copyright Holder.  A Package
modified in such a way shall still be considered the Standard Version.

3. You may otherwise modify your copy of this Package in any way, provided
that you insert a prominent notice in each changed file stating how and
when you changed that file, and provided that you do at least ONE of the
following:

    a) place your modifications in the Public Domain or otherwise make them
    Freely Available, such as by posting said modifications to Usenet or
    an equivalent medium, or placing the modifications on a major archive
    site such as uunet.uu.net, or by allowing the Copyright Holder to include
    your modifications in the Standard Version of the Package.

    b) use the modified Package only within your corporation or organization.

    c) rename any non-standard executables so the names do not conflict
    with standard executables, which must also be provided, and provide
    a separate manual page for each non-standard executable that clearly
    documents how it differs from the Standard Version.

META.json  view on Meta::CPAN

                        "name" : "@GETTY/Stability",
                        "version" : "4.020"
                     },
                     {
                        "class" : "Pod::Weaver::Section::Leftovers",
                        "name" : "@GETTY/Leftovers",
                        "version" : "4.020"
                     },
                     {
                        "class" : "Pod::Weaver::Section::Region",
                        "name" : "@GETTY/postlude",
                        "version" : "4.020"
                     },
                     {
                        "class" : "Pod::Weaver::Section::GenerateSection",
                        "name" : "@GETTY/Support",
                        "version" : "4.020"
                     },
                     {
                        "class" : "Pod::Weaver::Section::GenerateSection",
                        "name" : "@GETTY/Contributing",

META.json  view on Meta::CPAN

                  "changelog" : "Changes"
               },
               "Dist::Zilla::Role::Git::Repo" : {
                  "git_version" : "2.39.5",
                  "repo_root" : "."
               },
               "Dist::Zilla::Role::Git::StringFormatter" : {
                  "time_zone" : "local"
               }
            },
            "name" : "@Author::GETTY/@Git::VersionManager/post-release commit",
            "version" : "2.052"
         },
         {
            "class" : "Dist::Zilla::Plugin::Git::Push",
            "config" : {
               "Dist::Zilla::Plugin::Git::Push" : {
                  "push_to" : [
                     "origin"
                  ],
                  "remotes_must_exist" : 1

META.yml  view on Meta::CPAN

            -
              class: Pod::Weaver::Section::Generic
              name: '@GETTY/Stability'
              version: '4.020'
            -
              class: Pod::Weaver::Section::Leftovers
              name: '@GETTY/Leftovers'
              version: '4.020'
            -
              class: Pod::Weaver::Section::Region
              name: '@GETTY/postlude'
              version: '4.020'
            -
              class: Pod::Weaver::Section::GenerateSection
              name: '@GETTY/Support'
              version: '4.020'
            -
              class: Pod::Weaver::Section::GenerateSection
              name: '@GETTY/Contributing'
              version: '4.020'
            -

META.yml  view on Meta::CPAN

            - Changes
            - Makefile.PL
          allow_dirty_match:
            - (?^:^lib/.*\.pm$)
          changelog: Changes
        Dist::Zilla::Role::Git::Repo:
          git_version: 2.39.5
          repo_root: .
        Dist::Zilla::Role::Git::StringFormatter:
          time_zone: local
      name: '@Author::GETTY/@Git::VersionManager/post-release commit'
      version: '2.052'
    -
      class: Dist::Zilla::Plugin::Git::Push
      config:
        Dist::Zilla::Plugin::Git::Push:
          push_to:
            - origin
          remotes_must_exist: 1
        Dist::Zilla::Role::Git::Repo:
          git_version: 2.39.5

lib/Adam.pm  view on Meta::CPAN

        Options  => $self->get_poco_irc_options,
        Flood    => $self->can_flood,
        Username => $self->get_username,
        Password => $self->get_password,
		%{ $self->get_poco_irc_args },
    );
}

sub privmsg {
    my $self = shift;
    POE::Kernel->post( $self->irc_session_id => privmsg => @_ );
}


sub START {
    my ( $self, $heap ) = @_[ OBJECT, HEAP ];
    $poe_kernel->post( $self->irc_session_id => register => 'all' );
    $poe_kernel->post( $self->irc_session_id => connect  => {} );
    $self->info( 'connecting to ' . $self->get_server . ':' . $self->get_port );
    return;
}

sub load_plugin {
    my ( $self, $name, $plugin ) = @_;
    $self->plugin_manager->load( $name => $plugin, bot => $self );
}