#!/usr/bin/perl

use strict;
use warnings;

use YAML::Any qw(DumpFile LoadFile);

my $yaml_file = 'test-re.yaml';

my @default_patterns = (
    qr/^foo.*bar.*baz/i,
    qr/^bar.*baz.*quux/i,
    qr/^quux$/,
);


my $yaml = {};

if ( -w $yaml_file ) {
    $yaml = LoadFile( $yaml_file );
}


if ( scalar @ARGV ) {
    push @{$yaml->{patterns}}, qr/$_/ for @ARGV;
} else {

    # If no args, assume we want a fresh pattern dump, seed
    # with the default list of patterns.
    #
    $yaml->{patterns} = [];
    push @{$yaml->{patterns}}, $_ for @default_patterns;
}


DumpFile( $yaml_file, $yaml )
    or die "Error writing yaml file: $!\n";

print "Wrote $yaml_file\n";