#!/usr/bin/env perl

use strict;
use warnings;

use GraphViz2;

use Log::Handler;

# ---------------

my($logger) = Log::Handler -> new;

$logger -> add
	(
	 screen =>
	 {
		 maxlevel       => 'debug',
		 message_layout => '%m',
		 minlevel       => 'error',
	 }
	);

GraphViz2 -> new(logger  => $logger) -> report_valid_attributes;