package WGDev::Command::Snapshot;

use strict;

use warnings;

use 5.008008;

our $VERSION = '0.2.0';

use WGDev::Command::Base;

use Carp;

BEGIN { our @ISA = qw(WGDev::Command::Base) }

use WGDev::X ();

sub config_options {

return qw(

);

}

sub process {

my $self = shift;

require Cwd;

require File::Spec;

require File::Path;

require File::Slurp::Tree;

my $to = $self->option('to') || Cwd::getcwd;

print "Writing to: $to\n";

File::Path::make_path("$to");

require Encode;

for my $asset_spec ( $self->arguments ? $self->arguments : 'root' ) {

my $asset = eval { $self->wgd->asset->find($asset_spec) };

if ( !$asset ) {

warn $@;

next;

}

my %tree;

my $assets = $asset->getLineageIterator(['self', 'descendants']);

while ( my $asset = $assets->() ) {

my $url = $asset->get('url');

File::Path::make_path("$to/$url");

$tree{"${url}_"} = Encode::encode('utf8', $self->wgd->asset->serialize($asset));

}

File::Slurp::Tree::spew_tree( $to => \%tree );

}

return 1;

}

1;