70 lines
1.4 KiB
Perl
Executable File
70 lines
1.4 KiB
Perl
Executable File
# ------------------------------------------------------------------------------
|
|
# (C) Crown copyright Met Office. All rights reserved.
|
|
# For further details please refer to the file COPYRIGHT.txt
|
|
# which you should have received as part of this distribution.
|
|
# ------------------------------------------------------------------------------
|
|
use strict;
|
|
use warnings;
|
|
|
|
package Fcm::CLI::Invoker::CM;
|
|
use base qw{Fcm::CLI::Invoker};
|
|
|
|
use Fcm::Cm qw{cli};
|
|
|
|
################################################################################
|
|
# Invokes the sub-system
|
|
sub invoke {
|
|
my ($self) = @_;
|
|
return cli($self->get_command(), @ARGV);
|
|
}
|
|
|
|
1;
|
|
__END__
|
|
|
|
=head1 NAME
|
|
|
|
Fcm::CLI::Invoker::CM
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
use Fcm::CLI::Invoker::CM;
|
|
$invoker = Fcm::CLI::Invoker::CM->new();
|
|
$invoker->invoke();
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
This class extends L<Fcm::CLI::Invoker|Fcm::CLI::Invoker> an inherits all its
|
|
methods. An object of this class is used to invoke a command in the CM
|
|
sub-system.
|
|
|
|
It is worth noting that this is not yet a full implementation.
|
|
|
|
=head1 METHODS
|
|
|
|
See L<Fcm::CLI::Invoker|Fcm::CLI::Invoker> for a list of inherited methods.
|
|
|
|
=over 4
|
|
|
|
=item invoke()
|
|
|
|
Invokes a command in the CM sub-system.
|
|
|
|
=back
|
|
|
|
=head1 TO DO
|
|
|
|
Bring the CM system into this framework.
|
|
|
|
Unit tests.
|
|
|
|
=head1 SEE ALSO
|
|
|
|
L<Fcm::Cm|Fcm::Cm>,
|
|
L<Fcm::CLI::Subcommand|Fcm::CLI::Subcommand>
|
|
|
|
=head1 COPYRIGHT
|
|
|
|
E<169> Crown copyright Met Office. All rights reserved.
|
|
|
|
=cut
|