source:
branches/2015/dev_r5021_UKMO1_CICE_coupling/NEMOGCM/EXTERNAL/fcm/lib/Fcm/CLI/Invoker/GUI.pm
@
5445
Last change on this file since 5445 was 5445, checked in by davestorkey, 9 years ago | |
---|---|
File size: 1.6 KB |
Rev | Line | |
---|---|---|
[1980] | 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 | # ------------------------------------------------------------------------------ | |
6 | use strict; | |
7 | use warnings; | |
8 | ||
9 | package Fcm::CLI::Invoker::GUI; | |
10 | use base qw{Fcm::CLI::Invoker}; | |
11 | ||
12 | use Fcm::Util qw{run_command}; | |
13 | ||
14 | ################################################################################ | |
15 | # Invokes the sub-system | |
16 | sub invoke { | |
17 | my ($self) = @_; | |
18 | my ($target) = $self->get_arguments(); | |
19 | run_command(['fcm_gui', ($target ? $target : ())], METHOD => 'exec'); | |
20 | } | |
21 | ||
22 | 1; | |
23 | __END__ | |
24 | ||
25 | =head1 NAME | |
26 | ||
27 | Fcm::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 | ||
41 | This class extends L<Fcm::CLI::Invoker|Fcm::CLI::Invoker> an inherits all its | |
42 | methods. An object of this class is used to invoke the FCM GUI. | |
43 | ||
44 | =head1 METHODS | |
45 | ||
46 | See L<Fcm::CLI::Invoker|Fcm::CLI::Invoker> for a list of inherited methods. | |
47 | ||
48 | =over 4 | |
49 | ||
50 | =item invoke() | |
51 | ||
52 | Invokes the FCM GUI. If a target is specified as argument, it is the initial | |
53 | working directory of the GUI. | |
54 | ||
55 | =back | |
56 | ||
57 | =head1 TO DO | |
58 | ||
59 | Unit tests. | |
60 | ||
61 | =head1 SEE ALSO | |
62 | ||
63 | L<Fcm::CLI::Invoker|Fcm::CLI::Invoker>, | |
64 | L<Fcm::CLI::Subcommand|Fcm::CLI::Subcommand> | |
65 | ||
66 | =head1 COPYRIGHT | |
67 | ||
68 | E<169> Crown copyright Met Office. All rights reserved. | |
69 | ||
70 | =cut |
Note: See TracBrowser
for help on using the repository browser.