#!/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, @digests) = @ARGV;

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

@digests = qw(sha-2-256 sha-3-256 sha-3-512) unless scalar @digests; # use default digests

my File::FStore $store = File::FStore->create(path => $path, digests => \@digests);

$store->close;

#ll
