Lines Matching refs:visitor

60     my $visitor = Tree::Simple::Visitor::FindByUID->new();
61     isa_ok($visitor, 'Tree::Simple::Visitor::FindByUID');
62     isa_ok($visitor, 'Tree::Simple::Visitor');
64     can_ok($visitor, 'searchForUID');
65     can_ok($visitor, 'visit');
66     can_ok($visitor, 'getResult');
68     $visitor->searchForUID($first_search_UID);
69     $tree->accept($visitor);
71     my $match = $visitor->getResult();
78     my $visitor = Tree::Simple::Visitor::FindByUID->new();
79     isa_ok($visitor, 'Tree::Simple::Visitor::FindByUID');
80     isa_ok($visitor, 'Tree::Simple::Visitor');
82     $visitor->searchForUID($first_search_UID);
84     $visitor->setNodeFilter(sub {
89     $tree->accept($visitor);
91     my $match = $visitor->getResult();
97     my $visitor = Tree::Simple::Visitor::FindByUID->new();
98     isa_ok($visitor, 'Tree::Simple::Visitor::FindByUID');
99     isa_ok($visitor, 'Tree::Simple::Visitor');
101     $visitor->searchForUID($second_search_UID);
103     $visitor->setNodeFilter(sub {
108     $tree->accept($visitor);
110     my $match = $visitor->getResult();
117     my $visitor = Tree::Simple::Visitor::FindByUID->new();
118     isa_ok($visitor, 'Tree::Simple::Visitor::FindByUID');
119     isa_ok($visitor, 'Tree::Simple::Visitor');
121     can_ok($visitor, 'includeTrunk');
122     $visitor->includeTrunk(1);
124     $visitor->searchForUID($tree->getUID());
125     $tree->accept($visitor);
127     my $match = $visitor->getResult();
134     my $visitor = Tree::Simple::Visitor::FindByUID->new();
135     isa_ok($visitor, 'Tree::Simple::Visitor::FindByUID');
136     isa_ok($visitor, 'Tree::Simple::Visitor');
138     can_ok($visitor, 'setTraversalMethod');
139     $visitor->setTraversalMethod(Tree::Simple::Visitor::BreadthFirstTraversal->new());    
141     $visitor->searchForUID($first_search_UID);
142     $tree->accept($visitor);
144     my $match = $visitor->getResult();
151     my $visitor = Tree::Simple::Visitor::FindByUID->new();
152     isa_ok($visitor, 'Tree::Simple::Visitor::FindByUID');
153     isa_ok($visitor, 'Tree::Simple::Visitor');
155     $visitor->setTraversalMethod(Tree::Simple::Visitor::BreadthFirstTraversal->new());    
156     $visitor->includeTrunk(1);
157     $visitor->searchForUID($tree->getUID());
159     $tree->accept($visitor);
161     my $match = $visitor->getResult();
169     my $visitor = Tree::Simple::Visitor::FindByUID->new();
170     isa_ok($visitor, 'Tree::Simple::Visitor::FindByUID');
171     isa_ok($visitor, 'Tree::Simple::Visitor');
176         $visitor->visit();
180         $visitor->visit("Fail");
184         $visitor->visit([]);
188         $visitor->visit(bless({}, "Fail"));
193         $visitor->searchForUID();
198         $visitor->visit($tree);
203         $visitor->setTraversalMethod();
207         $visitor->setTraversalMethod("Fail");
211         $visitor->setTraversalMethod([]);
215         $visitor->setTraversalMethod(bless({}, "Fail"));
219         $visitor->searchForUID();
223     $visitor->searchForUID($first_search_UID);
225     $visitor->setNodeFilter(sub { die "Nothing really" });
227         $visitor->visit($tree);
230     $visitor->setNodeFilter(sub { die bless({}, "NothingReally") });
232         $visitor->visit($tree);