Lines 24-29
sub fetch {
Link Here
|
24 |
return unless $bookseller; |
24 |
return unless $bookseller; |
25 |
|
25 |
|
26 |
my $self = $class->new( $bookseller ); |
26 |
my $self = $class->new( $bookseller ); |
|
|
27 |
$self->{'basketcount'} = $self->basket_count; |
28 |
$self->{'subscriptioncount'} = $self->subscription_count; |
27 |
$self->contacts; # TODO: This should be generated on demand. |
29 |
$self->contacts; # TODO: This should be generated on demand. |
28 |
return $self; |
30 |
return $self; |
29 |
} |
31 |
} |
30 |
- |
|
|