source: branches/UKMO/r6232_tracer_advection/NEMOGCM/EXTERNAL/fcm/lib/Fcm/CLI/Invoker/GUI.pm @ 9295

Last change on this file since 9295 was 9295, checked in by jcastill, 3 years ago

Remove svn keywords

File size: 1.6 KB
Line 
1# ------------------------------------------------------------------------------
2# (C) Crown copyright Met Office. All rights reserved.
3# For further details please refer to the file COPYRIGHT.txt
4# which you should have received as part of this distribution.
5# ------------------------------------------------------------------------------
6use strict;
7use warnings;
8
9package Fcm::CLI::Invoker::GUI;
10use base qw{Fcm::CLI::Invoker};
11
12use Fcm::Util qw{run_command};
13
14################################################################################
15# Invokes the sub-system
16sub invoke {
17    my ($self) = @_;
18    my ($target) = $self->get_arguments();
19    run_command(['fcm_gui', ($target ? $target : ())], METHOD => 'exec');
20}
21
221;
23__END__
24
25=head1 NAME
26
27Fcm::CLI::GUIInvoker
28
29=head1 SYNOPSIS
30
31    use Fcm::CLI::Invoker::GUI;
32    $invoker = Fcm::CLI::Invoker::GUI->new({
33        command   => $command,
34        options   => \%options,
35        arguments => $arguments,
36    });
37    $invoker->invoke($command, \%options, $target);
38
39=head1 DESCRIPTION
40
41This class extends L<Fcm::CLI::Invoker|Fcm::CLI::Invoker> an inherits all its
42methods. An object of this class is used to invoke the FCM GUI.
43
44=head1 METHODS
45
46See L<Fcm::CLI::Invoker|Fcm::CLI::Invoker> for a list of inherited methods.
47
48=over 4
49
50=item invoke()
51
52Invokes the FCM GUI. If a target is specified as argument, it is the initial
53working directory of the GUI.
54
55=back
56
57=head1 TO DO
58
59Unit tests.
60
61=head1 SEE ALSO
62
63L<Fcm::CLI::Invoker|Fcm::CLI::Invoker>,
64L<Fcm::CLI::Subcommand|Fcm::CLI::Subcommand>
65
66=head1 COPYRIGHT
67
68E<169> Crown copyright Met Office. All rights reserved.
69
70=cut
Note: See TracBrowser for help on using the repository browser.