File Coverage

blib/lib/TeamCity/Message.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	5	8	62.5
condition	1	2	50.0
subroutine	7	7	100.0
pod	1	1	100.0
total	48	52	92.3

package TeamCity::Message;

use strict;
use warnings;

our $VERSION = '0.01';

use Time::HiRes qw( time );

use Exporter qw( import );

## no critic (Modules::ProhibitAutomaticExportation)
our @EXPORT = qw( tc_message );
## use critic

sub tc_message {
    my %args = @_;

    my $type = delete $args{type} || 'message';
    my $content = delete $args{content}
        or die 'You must provide a content argument to tc_message()';

    my $msg = "##teamcity[$type";

    if ( ref $content ) {
        for my $name ( sort keys %{$content} ) {
            my $value = $content->{$name};
            $msg .= qq{ $name='} . _escape($value) . q{'};
        }

        $msg .= _timestamp()
            unless $content->{timestamp};
    }
    else {
        $msg .= q{ '} . _escape($content) . q{'} or die $!;
    }

    $msg .= "]\n";

    return $msg;
}

sub _timestamp {
    my $now = time;

    my ( $s, $mi, $h, $d, $mo, $y ) = ( gmtime($now) )[ 0 .. 5 ];

    my $float = ( $now - int($now) );
    return sprintf(
        q{ timestamp='%4d-%02d-%02dT%02d:%02d:%02d.%03d'},
        $y + 1900, $mo + 1, $d,
        $h, $mi, $s,

        # We only need 3 places of precision so if we multiply it be 1,000 we
        # can just treat it as an integer.
        $float * 1000,
    );
}

sub _escape {
    my $str = shift;

    ( my $esc = $str ) =~ s{(['|\]])}{|$1}g;
    $esc =~ s{\n}{|n}g;
    $esc =~ s{\r}{|r}g;

    return $esc;
}

1;

# ABSTRACT: Generate TeamCity build messages

__END__