/usr/share/perl5/FCM/Context/Make/Share/Property.pm is in fcm 2016.12.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 | # ------------------------------------------------------------------------------
# (C) British Crown Copyright 2006-16 Met Office.
#
# This file is part of FCM, tools for managing and building source code.
#
# FCM is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# FCM is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with FCM. If not, see <http://www.gnu.org/licenses/>.
# ------------------------------------------------------------------------------
use strict;
use warnings;
# ------------------------------------------------------------------------------
package FCM::Context::Make::Share::Property;
use base qw{FCM::Class::HASH};
use constant {
CTX_VALUE => 'FCM::Context::Make::Share::Property::Value',
NS_OF_ROOT => q{},
};
__PACKAGE__->class({ctx_of => '%', id => '$'});
sub get_ctx {
$_[0]->get_ctx_of(NS_OF_ROOT);
}
sub set_ctx {
$_[0]->get_ctx_of()->{$_[0]->NS_OF_ROOT} = $_[1];
}
# ------------------------------------------------------------------------------
package FCM::Context::Make::Share::Property::Value;
use base qw{FCM::Class::HASH};
__PACKAGE__->class({inherited => '$', value => '$'});
# ------------------------------------------------------------------------------
1;
__END__
=head1 NAME
FCM::Context::Make::Share::Property
=head1 SYNOPSIS
use FCM::Context::Make::Share::Property;
$prop = FCM::Context::Make::Share::Property->new(\%attrib);
=head1 DESCRIPTION
Provides a context object to store the property of a named shell command.
=head1 OBJECTS
The classes described below are all sub-classes of
L<FCM::Class::HASH|FCM::Class::HASH>.
=head2 FCM::Context::Make::Share::Property
This class represents a property. It has the following attributes:
=over 4
=item ctx_of
A HASH to map (keys) the name-spaces to (values) the contexts of this property.
Expects each context to be an instance of
L</FCM::Context::Make::Share::Property::Value>.
The context of a simple property is stored in the root (i.e. the empty string)
name-space.
=item id
The ID of this property.
=back
An instance of FCM::Context::Make::Share::Property has 2 additional methods:
=over 4
=item $instance->get_ctx()
Shorthand for:
$instance->get_ctx_of(q{}).
=item $instance->set_ctx($ctx)
Shorthand for:
$instance->get_ctx_of()->{q{}} = $ctx.
=back
=head2 FCM::Context::Make::Share::Property::Value
This class represents a property value (associated with a name-space). It has
the following attributes:
=over 4
=item inherited
A flag, if true, indicates that this value is inherited.
=item value
The value.
=back
=head1 CONSTANTS
=over 4
=item FCM::Context::Make::Share::Property->NS_OF_ROOT
The root name-space, an empty string.
=back
=head1 COPYRIGHT
(C) Crown copyright Met Office. All rights reserved.
=cut
|