examples/copy.pl

   1 #!/usr/bin/perl
   2
   3 use Gruta;
   4 use Gruta::Source::DBI;
   5 use Gruta::Source::FS;
   6
   7 my $g = Gruta->new (
   8         source  => Gruta::Source::DBI->new( string => 'dbi:SQLite:g.db' )
   9 );
  10
  11 my $dst = Gruta::Source::FS->new( path => '/tmp/gruta_fs' );
  12
  13 $dst->create();
  14 $g->transfer_to_source( $dst );