The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Locale::TextDomain::OO::Lexicon::Role::StoreFile - Role to store a lexicon as file

$Id: StoreFile.pm 573 2015-02-07 20:59:51Z 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.017

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

Carp

English

Moo::Role

MooX::Types::MooseLike::Base

namespace::autoclean

INCOMPATIBILITIES

not known

BUGS AND LIMITATIONS

none

SEE ALSO

Locale::TextDoamin::OO

AUTHOR

Steffen Winkler

LICENSE AND COPYRIGHT

Copyright (c) 2013 - 2015, 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.