- my($self, $svc_dsl, $threshold) = (shift, shift, shift);
- my $result = $self->valid_order($svc_dsl,'pull');
- return $result unless $result eq '';
+ my($self, $svc_dsl, $threshold, $import) = (shift, shift, shift, shift);
+
+ return 'Invalid operation - Import Mode is enabled'
+ if $self->import_mode && !$import;
+
+ return 'invalid arguments' if $import && !$self->import_mode;
+
+ warn "$me dsl_pull: import mode" if $self->option('debug');
+
+ unless ( $import ) {
+ my $result = $self->valid_order($svc_dsl,'pull');
+ return $result unless $result eq '';
+ }