← Back to branch summary

~hikibi/p5-cassandra-simple/master

« back to all changes in this revision

Viewing changes to examples/counter_column_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/counter_column_test.pm
13
13
my $sys_conn = Cassandra::Simple->new();
14
14
unless ( grep { $_ eq $keyspace } @{ $sys_conn->list_keyspaces() } ) {
15
15
        print "Creating keyspace $keyspace";
16
 
        $sys_conn->create_keyspace($keyspace);
 
16
        $sys_conn->create_keyspace(keyspace => $keyspace);
17
17
}
18
18
 
19
19
my $conn = Cassandra::Simple->new( keyspace  => $keyspace, );
20
20
 
21
21
my $present =
22
 
  grep { $_ eq $column_family } @{ $conn->list_keyspace_cfs($keyspace) };
 
22
  grep { $_ eq $column_family } @{ $conn->list_keyspace_cfs() };
23
23
 
24
24
unless ($present) {
25
25
        print "Creating $column_family in $keyspace";
26
 
        $conn->create_column_family( $keyspace, $column_family,
27
 
                                                                         {
28
 
                                                                           comparator_type          => 'UTF8Type',
29
 
                                                                           key_validation_class     => 'UTF8Type',
30
 
                                                                           default_validation_class => 'CounterColumnType',
31
 
                                                                         } );
 
26
        $conn->create_column_family( column_family =>  $column_family,
 
27
                                                                comparator_type          => 'UTF8Type',
 
28
                                                                key_validation_class     => 'UTF8Type',
 
29
                                                                default_validation_class => 'CounterColumnType',
 
30
                                                        );
32
31
}
33
32
 
34
33
 
39
38
 
40
39
 
41
40
print "\$conn->add($column_family, 'ChaveA', 'ColunaA')";
42
 
print Dumper $conn->add($column_family, 'ChaveA', 'ColunaA');
 
41
print Dumper $conn->add(column_family => $column_family, key => 'ChaveA', column => 'ColunaA');
43
42
 
44
43
print "\$conn->get($column_family, 'ChaveA', {columns => ['ColunaA']})";
45
 
print Dumper $conn->get($column_family, 'ChaveA', {columns => ['ColunaA']});
 
44
print Dumper $conn->get(column_family => $column_family, key => 'ChaveA', columns => ['ColunaA']);
46
45
#Expected result: ColunaA -> 1
47
46
 
48
47
print "\$conn->add($column_family, 'ChaveA', 'ColunaA', 0)";
49
 
print Dumper $conn->add($column_family, 'ChaveA', 'ColunaA', 0);
 
48
print Dumper $conn->add(column_family => $column_family, key => 'ChaveA', column => 'ColunaA', value => 0);
50
49
 
51
50
print "\$conn->get($column_family, 'ChaveA', {columns => ['ColunaA']})";
52
 
print Dumper $conn->get($column_family, 'ChaveA', {columns => ['ColunaA']});
 
51
print Dumper $conn->get(column_family => $column_family, key => 'ChaveA', columns => ['ColunaA']);
53
52
#Expected result: ColunaA -> 1
54
53
 
55
54
print "\$conn->batch_add($column_family, {'ChaveA'=> {'ColunaA'=> 10}})";
56
 
print Dumper $conn->batch_add($column_family, {'ChaveA'=> {'ColunaA'=> 10}});
 
55
print Dumper $conn->batch_add(column_family => $column_family, rows => {'ChaveA'=> {'ColunaA'=> 10}});
57
56
 
58
57
print "\$conn->get($column_family, 'ChaveA', {columns => ['ColunaA']})";
59
 
print Dumper $conn->get($column_family, 'ChaveA', {columns => ['ColunaA']});
 
58
print Dumper $conn->get(column_family => $column_family, key => 'ChaveA', columns => ['ColunaA']);
60
59
#Expected result: ColunaA -> 11
61
60
 
62
61
print "\$conn->remove_counter($column_family, 'ChaveA', 'ColunaA')";
63
 
print Dumper $conn->remove_counter($column_family, 'ChaveA', 'ColunaA');
 
62
print Dumper $conn->remove_counter(column_family => $column_family, key => 'ChaveA', column => 'ColunaA');
64
63
 
65
64
print Dumper "\$conn->drop_keyspace($keyspace)";
66
 
print Dumper $sys_conn->drop_keyspace($keyspace);
 
 
b'\\ No newline at end of file'
 
65
print Dumper $sys_conn->drop_keyspace(keyspace => $keyspace);
 
 
b'\\ No newline at end of file'