NAME
Locale::TextDomain::OO::Lexicon::Role::StoreFile - Role to store a lexicon as file
$Id: StoreFile.pm 439 2013-12-19 20:42:34Z steffenw $
$HeadURL: svn+ssh://steffenw@svn.code.sf.net/p/perl-gettext-oo/code/module/trunk/lib/Locale/TextDomain/OO/Lexicon/Role/StoreFile.pm $
VERSION
1.000
DESCRIPTION
This module contains methods that helps to store the lexicon as file.
Implements attributes "filename" and "file_handle".
SYNOPSIS
with qw(
Locale::TextDomain::OO::Lexicon::Role::StoreFile
);
$self->store_content($content);SUBROUTINES/METHODS
method store_content
If "file_handle" is set the content will print;
If "filename" is set and not "file_handle" a file will be stored.
If both not set the content itself will be returned.
$content = $self->store_content($content);method filename
$self->filename('myfile.myext')
$self->store_content;method file_handle
Set filename also to get a speaking error messages. Must not a real filename if the handle is not a real file.
my $filename = 'myfile.myext';
$self->filename($filename);
open my $file_handle, q{>}, $filename
or confess qq{Unable to open file "$filename" $OS_ERROR};
$self->file_handle($file_handle);
$self->store_content;
close $file_handle
or confess qq{Unable to close file "$filename" $OS_ERROR};EXAMPLE
Inside of this distribution is a directory named example. Run this *.pl files.
DIAGNOSTICS
confess
CONFIGURATION AND ENVIRONMENT
none
DEPENDENCIES
INCOMPATIBILITIES
not known
BUGS AND LIMITATIONS
none
SEE ALSO
AUTHOR
Steffen Winkler
LICENSE AND COPYRIGHT
Copyright (c) 2013, Steffen Winkler <steffenw at cpan.org>. All rights reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.