Ignore:
Timestamp:
11/14/14 10:12:06 (6 years ago)
Author:
Kevin L. Esteb <kevin@…>
Branches:
master
Children:
80524e9e81a412ca74c34a84be3d28b8a923fb3b
Parents:
a4057fa6cfc06414b67428e5d02487354c0ddfcf
git-author:
Kevin L. Esteb <kevin@…> (11/14/14 10:12:06)
git-committer:
Kevin L. Esteb <kevin@…> (11/14/14 10:12:06)
Message:

Fixed some typos

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/lib/XAS/Lib/Stomp/POE/Client.pm

    rc91280cb582532e42a6555898e9c3662f7a6c282 r356a9c26c4b3ecd30059f983907d4b00a270c27e  
    3636# --------------------------------------------------------------------- 
    3737 
    38 sub session_initalize { 
     38sub session_initialize { 
    3939    my $self = shift; 
    4040 
     
    6969    ); 
    7070 
     71    $self->log->debug("$alias: entering session_shutdown()"); 
     72 
    7173    $poe_kernel->call($alias, 'write_data', $frame); 
     74 
     75    # walk the chain 
     76 
    7277    $self->SUPER::session_shutdown(); 
     78 
     79    $self->log->debug("$alias: leaving session_shutdown()"); 
    7380 
    7481} 
     
    8289 
    8390    my $alias = $self->alias; 
    84     my $frame = $self->frame->connect( 
     91    my $frame = $self->stomp->connect( 
    8592        -login    => $self->login, 
    8693        -passcode => $self->passcode 
    8794    ); 
    8895 
     96    $self->log->debug("$alias: entering handle_connection()"); 
     97 
    8998    $poe_kernel->post($alias, 'write_data', $frame); 
    90      
     99 
     100    $self->log->debug("$alias: leaving handle_connection()"); 
     101 
    91102} 
    92103 
     
    95106 
    96107    my $alias = $self->alias; 
     108 
     109    $self->log->debug("$alias: entering handle_connected()"); 
    97110 
    98111    if ($self->tcp_keepalive) { 
     
    108121 
    109122    $poe_kernel->post($alias, 'connection_up'); 
     123 
     124    $self->log->debug("$alias: leaving handle_connected()"); 
    110125 
    111126} 
     
    138153    my ($self, $frame) = @_[OBJECT, ARG0]; 
    139154 
     155    my $alias = $self->alias; 
     156 
     157    $self->log->debug("$alias: handle_noop()"); 
     158 
    140159} 
    141160 
     
    149168    my $alias = $self->alias; 
    150169 
    151     $self->log->debug("$alias: _server_message()"); 
     170    $self->log->debug("$alias: entering _server_message()"); 
    152171 
    153172    if ($frame->command eq 'CONNECTED') { 
     
    181200 
    182201    } 
     202 
     203    $self->log->debug("$alias: leaving _server_message()"); 
    183204 
    184205} 
Note: See TracChangeset for help on using the changeset viewer.