#!/usr/bin/perl

# Copyright (c) 2026 Philipp Schafft

# licensed under Artistic License 2.0 (see LICENSE file)

# ABSTRACT: Example demonstrating store creation on the command line

use strict;
use warnings;

use File::FStore;

my ($path, @fixes) = @ARGV;

die 'No valid path given' unless defined($path) && length($path);

@fixes = qw(upgrade scrub scan) unless scalar @fixes; # use default fixes

my File::FStore $store = File::FStore->new(path => $path);

$store->fix(@fixes);

$store->close;

#ll
