File Coverage

blib/lib/Siebel/Srvrmgr/ListParser/Output/ToString.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	5	6	83.3
condition	3	6	50.0
subroutine	7	7	100.0
pod	2	2	100.0
total	52	56	92.8

package Siebel::Srvrmgr::ListParser::Output::ToString;

use Moose::Role;
use Carp;
use warnings;
use strict;

=head1 NAME

Siebel::Srvrmgr::ListParser::Output::ToString - Moose role to "stringfy" objects

=head1 SYNOPSIS

    with 'Siebel::Srvrmgr::ListParser::Output::ToString';

=head1 DESCRIPTION

This role will use some introspection to enable a object to return all it's attributes as a string.

=head1 METHODS

=head2 to_string_header

Returns a string with all attributes values, ordered alphabetically by their respective attribute names, concatenated with a single character.

Expects as parameter a single character to be used as field separator.

=cut

sub to_string_header {

    my $self      = shift;
    my $separator = shift;

    confess 'separator must be a single character'
      unless ( ( defined($separator) ) and ( $separator =~ /^.$/ ) );

    my $meta = $self->meta;

    my $attribs_names_ref = $self->_to_string;

    return join( $separator, @{$attribs_names_ref} );

}

=head2 to_string

Returns a string with all attributes values, ordered alphabetically by their respective attribute names, concatenated with a single character.

Expects as parameter a single character to be used as field separator.

=cut

sub to_string {

    my $self      = shift;
    my $separator = shift;

    confess 'separator must be a single character'
      unless ( ( defined($separator) ) and ( $separator =~ /^.$/ ) );

    my $meta              = $self->meta;
    my $attribs_names_ref = $self->_to_string;
    my @values;

    foreach my $name ( @{$attribs_names_ref} ) {

        my $attrib = $meta->get_attribute($name);
        my $reader = $attrib->get_read_method;

        push( @values, ( defined( $self->$reader ) ? $self->$reader : '' ) );

    }

    return join( $separator, @values );

}

sub _to_string {

    my $self = shift;

    my $meta = $self->meta;

    my @attribs = sort( $meta->get_attribute_list );

    return \@attribs;

}

=head1 AUTHOR

Alceu Rodrigues de Freitas Junior, E<lt>[e-mail]<gt>.

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2012 of Alceu Rodrigues de Freitas Junior, E<lt>[e-mail]<gt>.

This file is part of Siebel Monitoring Tools.

Siebel Monitoring Tools is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

Siebel Monitoring Tools is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with Siebel Monitoring Tools.  If not, see L<http://www.gnu.org/licenses/>.

=cut

1;