Yet Another CPAN Grep

Salvation-AnyNotify-Plugin-Graphite ( G/GF/GFILATOV/Salvation-AnyNotify-Plugin-Graphite-0.03.tar.gz, GFILATOV, 2015; MetaCPAN )

Salvation-AnyNotify-Plugin-Graphite/lib/Salvation/AnyNotify/Plugin/Graphite/Monitor/Discontinuity.pm ( view source; MetaCPAN )

rict;
use warnings;
use bignum;

use base 'Salvation::AnyNotify::Plugin::Graphite::Monitor';

use JSON ();
use Salvation::Method::Signatures;

use constant {

    POINT_IDX_TIME => 1,
    POINT_IDX_VA

if( scalar( @warnings ) > 0 ) {

                my $bus = $core -> bus();
                my $json = JSON
                    -> new()
                    -> allow_blessed()
                    -> al

        foreach my $warning ( @warnings ) {

                    $bus -> notify( $warning -> { 'type' }, $json -> encode( $warning ) );
                }
            }
        }
    };
}

1;

__END__