package XAS::Apps::Test::SSH::Server;

our $VERSION = '0.02';

use XAS::Lib::SSH::Server;
use XAS::Class
  debug     => 0,
  version   => $VERSION,
  base      => 'XAS::Lib::App',
  accessors => 'server',
;

# ----------------------------------------------------------------------
# Public Methods
# ----------------------------------------------------------------------

sub setup {
    my $self = shift;

}

sub main {
    my $self = shift;

    $self->setup();
    $self->server->run();

}

sub options {
    my $self = shift;

    return {};

}

# ----------------------------------------------------------------------
# Private Methods
# ----------------------------------------------------------------------

sub init {
    my $class = shift;
    
    my $self = $class->SUPER::init(@_);
    
    $self->{'$server'} = XAS::Lib::SSH::Server->new();
    
    return $self;
    
}

1;

__END__

=head1 NAME

XAS::Apps::Test::SSH::Server - A class for the XAS environment

=head1 SYNOPSIS

 use XAS::Apps::Test::SSH::Server;

 my $app = XAS::Apps::Test::SSH::Server->new(
     -throw => 'ssh-server'
 );

 $app->run();

=head1 DESCRIPTION

This module provides a simple echo server for a SSH channel.

=head1 METHODS

=head2 setup

=head2 main

=head2 options

=head1 SEE ALSO

=head1 AUTHOR

Kevin L. Esteb, E<lt>kevin@kesteb.usE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2014 Kevin L. Esteb

This is free software; you can redistribute it and/or modify it under
the terms of the Artistic License 2.0. For details, see the full text
of the license at http://www.perlfoundation.org/artistic_license_2_0.

=cut