examples/create.pl

   1 #!/usr/bin/perl
   2
   3 use Gruta::Source::FS;
   4 use Gruta::Source::DBI;
   5
   6 #my $src = Gruta::Source::FS->new(
   7 #       path => '/home/angel/tmp/gruta-test'
   8 #);
   9 my $src = Gruta::Source::DBI->new(
  10         string => 'dbi:SQLite:/home/angel/tmp/gruta-test.db'
  11 );
  12
  13 $src->create();
  14
  15 my $c = Gruta::Data::Comment->new();
  16
  17 $c->set('topic_id', 'main');
  18 $c->set('story_id', 'index');
  19 $c->set('content', 'This is <b>a</b> comment.');
  20
  21 $c = $src->insert_comment($c);
  22
  23 my $c2 = $src->comment('main', 'index', $c->get('id'));
  24
  25 print $c2->get('id'), "\n";
  26
  27 my @p = $src->pending_comments();
  28
  29 $c->approve();
  30
  31 $c->delete();