use strict;

require RDF::Core::Storage::DB_File;
require RDF::Core::Resource;

# load model from storage
my $storage = new RDF::Core::Storage::DB_File(Name =>'./rdfdata',
                                                 MemLimit => 500);

# objects must be defined
my $subject;
my $object;

# initiate predicate
my $predicate = new RDF::Core::Resource('http://burningbird.net/postcon/elements/1.0/reason');

# get count of statements for predicate and print
my $val = $storage->countStmts($subject, $predicate, $object);
print $val . "\n";
