package NILab::Skeleton;

=head1 NAME

NILab::Skeleton - skeleton class

=head1 SYNOPSIS

=head1 AUTHOR

NI-Lab. http://www.nilab.info/

=head1 LICENSE

Copyright (c) 2005 NI-Lab. All rights reserved.

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

=head1 HISTORY

Since: 2005-05-13

2005-05-13
  * add subroutine do

=cut

#==============================================================================
use strict;

#==============================================================================
# constructor
#==============================================================================
sub new {
  my $class = shift;
  my $self = { # initializeing field value
    param1 => shift,
    param2 => shift,
    debug  => 0,
  };

  bless $self,$class;
  return $self;
}

#==============================================================================
# do
#==============================================================================
sub do{
  my $self   = shift;
  my $param1 = $self->{param1};
  my $param2 = $self->{param2};
  my $debug  = $self->{debug};

  print STDERR "This skeleton do it. param1=$param1, param2=$param2\n";

  return 1;
}
#==============================================================================

1;