NAME
Metabase::Fact::String - fact subtype for simple strings
SYNOPSIS
# defining the fact class
package MyFact;
use base 'Metabase::Fact::String';
sub content_metadata {
my $self = shift;
return {
'size' => [ '//num' => length $self->content ],
};
}
sub validate_content {
my $self = shift;
$self->SUPER::validate_content;
die __PACKAGE__ . " content length must be greater than zero\n"
if length $self->content < 0;
}
...and then...
# using the fact class
my $fact = MyFact->new(
resource => 'RJBS/Metabase-Fact-0.001.tar.gz',
content => "Hello World",
);
$client->send_fact($fact);
DESCRIPTION
Base class for facts that are just strings of text. Strings must be characters, not bytes.
You may wish to implement a content_metadata
method to generate metadata about the hash contents.
You should also implement a validate_content
method to validate the structure of the hash you're given.
BUGS
Please report any bugs or feature using the CPAN Request Tracker. Bugs can be submitted through the web interface at http://rt.cpan.org/Dist/Display.html?Queue=Metabase-Fact
When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature.
AUTHOR
David A. Golden (DAGOLDEN)
Ricardo J. B. Signes (RJBS)
COPYRIGHT AND LICENSE
Portions copyright (c) 2008-2009 by David A. Golden
Portions copyright (c) 2008-2009 by Ricardo J. B. Signes
Licensed under the same terms as Perl itself (the "License"). You may not use this file except in compliance with the License. A copy of the License was distributed with this file or you may obtain a copy of the License from http://dev.perl.org/licenses/
Unless required by applicable law or agreed to in writing, software distributed under the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the License for the specific language governing permissions and limitations under the License.