view release on metacpan or  search on metacpan

examples/log_line_data_object.pl  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

use Log::FreeSWITCH::Line::Data;

# Object.
my $data_o = 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',
);

# Print out informations.
print 'Date: '.$data_o->date."\n";

# Output:
# Date: 2014-07-01