NAME

Log::FreeSWITCH::Line - FreeSWITCH log line parsing and serializing.

SYNOPSIS

use Log::FreeSWITCH::Line qw(parse serialize);

my $data_o = parse($data);
my $data = serialize($data_o);

SUBROUTINES

parse

my $data_o = parse($data);

Parse FreeSWITCH log line.

Returns Log::FreeSWITCH::Line::Data object.

serialize

my $data = serialize($data_o);

Serialize Log::FreeSWITCH::Line::Data object to FreeSWITCH log line.

Returns string.

ERRORS

parse():
        Cannot parse data.
                Data: %s

serialize():
        Serialize object must be 'Log::FreeSWITCH::Line::Data' object.

EXAMPLE1

use strict;
use warnings;

use Data::Printer;
use Log::FreeSWITCH::Line qw(parse);

# Log record.
my $data = '2014-07-01 13:37:53.973562 [DEBUG] sofia.c:4045 inbound-codec-prefs [PCMA]';

# Parse.
my $data_o = parse($data);

# Dump.
p $data_o;

# Output:
# Log::FreeSWITCH::Line::Data  {
#     Parents       Mo::Object
#     public methods (0)
#     private methods (1) : _datetime
#     internals: {
#         date        "2014-07-01",
#         file        "sofia.c",
#         file_line   4045,
#         message     "inbound-codec-prefs [PCMA]",
#         raw         "2014-07-01 13:37:53.973562 [DEBUG] sofia.c:4045 inbound-codec-prefs [PCMA]",
#         time        "13:37:53.973562",
#         type        "DEBUG"
#     }
# }

EXAMPLE2

use strict;
use warnings;

use Log::FreeSWITCH::Line qw(serialize);
use Log::FreeSWITCH::Line::Data;

# Data.
my $record = Log::FreeSWITCH::Line::Data->new(
        'date' => '2014-07-01',
        'file' => 'sofia.c',
        'file_line' => 4045,
        'message' => 'inbound-codec-prefs [PCMA]',
        'time' => '13:37:53.973562',
        'type' => 'DEBUG',
);

# Serialize and print to stdout.
print serialize($record)."\n";

# Output:
# 2014-07-01 13:37:53.973562 [DEBUG] sofia.c:4045 inbound-codec-prefs [PCMA]

DEPENDENCIES

Error::Pure, Exporter, Log::FreeSWITCH::Line::Data, Readonly, Scalar::Util.

SEE ALSO

Log::FreeSWITCH::Line::Data

Data object which represents FreeSWITCH log line.

REPOSITORY

https://github.com/michal-josef-spacek/Log-FreeSWITCH-Line

AUTHOR

Michal Josef Špaček mailto:skim@cpan.org

http://skim.cz

LICENSE AND COPYRIGHT

© 2014-2022 Michal Josef Špaček

BSD 2-Clause License

VERSION

0.08

cpanm Log::FreeSWITCH::Line

perl -MCPAN -e shell
install Log::FreeSWITCH::Line