1package Data::Printer::Filter::FORMAT;
2use strict;
3use warnings;
4use Data::Printer::Filter;
5
6filter 'FORMAT' => \&parse;
7
8
9sub parse {
10    my ($format, $ddp) = @_;
11    return $ddp->maybe_colorize('FORMAT', 'format');
12};
13
141;
15