← Back to branch summary

~hikibi/p5-cassandra-simple/master

« back to all changes in this revision

Viewing changes to examples/ttl_test.pm

  • Committer: Filipe Gonçalves
  • Date: 2012-12-10 11:02:25 UTC
  • Revision ID: git-v1:5a417b7c4c4d27d3f0982abf8ffc38d1ec731736
        * Proper error handling.
        * Updated thrift generated code.
        * Updated API for easier and more reliable debugging.
        * Updated examples to match the changes.
        * Introduced LazyQuery for easy iteration over all query results.

Show diffs side-by-side

added added

removed removed

Lines of Context:
examples/ttl_test.pm
12
12
my $sys_conn = Cassandra::Simple->new();
13
13
unless ( grep { $_ eq $keyspace } @{ $sys_conn->list_keyspaces() } ) {
14
14
        print "Creating keyspace $keyspace";
15
 
        $sys_conn->create_keyspace($keyspace);
 
15
        $sys_conn->create_keyspace(keyspace => $keyspace);
16
16
}
17
17
 
18
18
my $conn = Cassandra::Simple->new( keyspace => $keyspace, );
19
19
 
20
20
my $present =
21
 
  grep { $_ eq $column_family } @{ $conn->list_keyspace_cfs($keyspace) };
 
21
  grep { $_ eq $column_family } @{ $conn->list_keyspace_cfs() };
22
22
 
23
23
unless ($present) {
24
24
        print "Creating $column_family in $keyspace";
25
 
        $conn->create_column_family( $keyspace, $column_family );
 
25
        $conn->create_column_family( column_family => $column_family );
26
26
}
27
27
 
28
 
print "\$conn->insert($column_family, 'DyingKey', { 'C1' => 'Dead1' , 'C2' => 'Dead2' }, { ttl => 20 } )";
29
 
$conn->insert($column_family, 'DyingKey', { 'C1' => 'Dead1' , 'C2' => 'Dead2' }, { ttl => 20 } );
30
 
 
31
 
print "\$conn->insert($column_family, 'DyingKey', { 'C3' => 'Dead3' } , { ttl => 30 })";
32
 
$conn->insert($column_family, 'DyingKey', { 'C3' => 'Dead3' } , { ttl => 30 });
33
 
 
34
 
print "\$conn->get($column_family, 'DyingKey')";
35
 
print Dumper $conn->get($column_family, 'DyingKey');
 
28
print "\$conn->insert(column_family => $column_family, key => 'DyingKey', columns => { 'C1' => 'Dead1' , 'C2' => 'Dead2' }, ttl => 20 )";
 
29
$conn->insert(column_family => $column_family, key => 'DyingKey', columns => { 'C1' => 'Dead1' , 'C2' => 'Dead2' }, ttl => 20 );
 
30
 
 
31
print "\$conn->insert(column_family => $column_family, key => 'DyingKey', columns => { 'C3' => 'Dead3' } , ttl => 30 )";
 
32
$conn->insert(column_family => $column_family, key => 'DyingKey', columns => { 'C3' => 'Dead3' } , ttl => 30 );
 
33
 
 
34
print "\$conn->get(column_family => $column_family, key => 'DyingKey')";
 
35
print Dumper $conn->get(column_family => $column_family, key => 'DyingKey');
36
36
#Expected result: C1, C2 and C3
37
37
 
38
38
print "sleep(22)";
42
42
}
43
43
print "\n";
44
44
 
45
 
print "\$conn->get($column_family, 'DyingKey')";
46
 
print Dumper $conn->get($column_family, 'DyingKey');
 
45
print "\$conn->get(column_family => $column_family, key => 'DyingKey')";
 
46
print Dumper $conn->get(column_family => $column_family, key => 'DyingKey');
47
47
#Expected result: C3
48
48
 
49
49
print "sleep(12)";
53
53
}
54
54
print "\n";
55
55
 
56
 
print "\$conn->get($column_family, 'DyingKey')";
57
 
print Dumper $conn->get($column_family, 'DyingKey');
 
56
print "\$conn->get(column_family => $column_family, key => 'DyingKey')";
 
57
print Dumper $conn->get(column_family => $column_family, key => 'DyingKey');
58
58
#Expected result: none
59
59
 
60
 
print "\$conn->remove($column_family)";
61
 
print Dumper $conn->remove($column_family);
62
 
 
63
 
 
64
 
print Dumper "\$conn->drop_keyspace($keyspace)";
65
 
print Dumper $sys_conn->drop_keyspace($keyspace);
 
 
b'\\ No newline at end of file'
 
60
print "\$conn->remove(column_family => $column_family)";
 
61
print Dumper $conn->remove(column_family => $column_family);
 
62
 
 
63
 
 
64
print Dumper "\$conn->drop_keyspace(keyspace => $keyspace)";
 
65
print Dumper $sys_conn->drop_keyspace(keyspace => $keyspace);
 
 
b'\\ No newline at end of file'