+# -----------------------------------------------------------------------------
+# Scan
+# -----------------------------------------------------------------------------
+sub scan {
+ my ($self, %args) = @_;
+
+ $self->checkzh;
+
+ unless ($args{expression}) {
+ croak ("No scan expression given");
+ }
+
+ my $sl = IDZebra::ScanList->new($self,%args);
+
+ return ($sl);
+}