The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

VERSION

0.2002

AUTHOR

Robert Drake, <rdrake at cpan.org>

COPYRIGHT & LICENSE

Copyright 2006 Robert Drake, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

FUNCTIONS

These are made to not be called as methods, so they normally won't use a $self reference.

load_syntax

   load_syntax('Cisco');

This attempts to load syntax highlighting modules. In the above example, Cisco would append Colors to the end and get CiscoColors.pm. If it can't find the module it just won't load it.

Multiple files can be chain loaded by using plus:

    load_syntax('Default+Cisco');

METHODS

new

    my $tel = App::Tel->new();

Creates a new App::Tel object.

disconnect

    $self->disconnect($hard_close);

Tears down the session gracefully and resets internal variables to their default values. Useful if you want to connect to another host after the first one.

If you supply a true value, it will hard_close the session.

hostname

   $hostname = $self->hostname("hostname");

Called to parse the hostname provided by the user when first making a connection. If the hostname has special attributes like a port designation, it's parsed here.

This also looks up the profile for the hostname to see if it needs to be translated because of an alias. The final hostname is stored and returned.

profile

   $profile = $self->profile;
   $profile = $self->profile('profilename', $replace);

Called without arguments this will return the current profile. If called with a profilename it will load that new profile on top of whatever profile currently exists. You can set the second argument to true if you want to replace the current profile with the new one.