+ my %opt = @_;
+
+ return $self->num_suspended_pkgs unless wantarray; #XXX opt in scalar context
+
+ my @pkgs = grep { $_->susp } $self->ncancelled_pkgs;
+
+ if ( $opt{reason_type} ) {
+ @pkgs = grep { my $r = $_->last_reason('susp');
+ $r && $r->reason_type == $opt{reason_type};
+ }
+ @pkgs;
+ }
+
+ @pkgs;