|
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 |
- |
|
|