← Back to branch summary

~ubuntu-branches/ubuntu/precise/rakudo/precise

« back to all changes in this revision

Viewing changes to src/classes/ContainerDeclarand.pir

  • Committer: Bazaar Package Importer
  • Author(s): Alessandro Ghedini
  • Date: 2011-05-17 11:31:09 UTC
  • mfrom: (1.1.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20110517113109-rmfir654u1axbpt4
Tags: 0.1~2011.04-1
http://bugs.debian.org/601862
http://bugs.debian.org/585762
http://bugs.debian.org/577502
http://bugs.debian.org/584498
* New upstream release (Closes: #601862, #585762, #577502)
* New maintainer
* Switch to 3.0 (quilt) format
* Update dependencies (Closes: #584498)
* Update debian/copyright to lastest DEP5 revision
* Do not generate/install perl6 manpage (now done by the build system)
* Enable tests
* Bump Standards-Version to 3.9.2 (no changes needed)
* Do not install extra LICENSE files and duplicated docs
* Remove debian/clean (no more needed)
* Add Vcs-* fields in debian/control
* Rewrite (short) description
* Update upstream copyright years
* Upload to unstable

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/classes/ContainerDeclarand.pir
1
 
## $Id$
2
 
 
3
 
=head1 NAME
4
 
 
5
 
src/classes/ContainerDeclarand.pir - Class specifying a declaration
6
 
 
7
 
=head1 DESCRIPTION
8
 
 
9
 
This is the class that gets created and passed to a trait_mod to
10
 
describe a declaration of a container.
11
 
 
12
 
=cut
13
 
 
14
 
.namespace ['ContainerDeclarand']
15
 
 
16
 
.sub '' :anon :load :init
17
 
    .local pmc p6meta
18
 
    p6meta = get_hll_global ['Perl6Object'], '$!P6META'
19
 
    p6meta.'new_class'('ContainerDeclarand', 'parent'=>'Any', 'attr'=>'$!container $!name')
20
 
.end
21
 
 
22
 
.sub 'new' :method
23
 
    .param pmc container :named('container')
24
 
    .param pmc name      :named('name')
25
 
    $P0 = new ['ContainerDeclarand']
26
 
    setattribute $P0, '$!container', container
27
 
    setattribute $P0, '$!name', name
28
 
    .return ($P0)
29
 
.end
30
 
 
31
 
.sub 'container' :method
32
 
    $P0 = getattribute self, '$!container'
33
 
    .return ($P0)
34
 
.end
35
 
 
36
 
.sub 'name' :method
37
 
    $P0 = getattribute self, '$!name'
38
 
    .return ($P0)
39
 
.end
40
 
 
41
 
# Local Variables:
42
 
#   mode: pir
43
 
#   fill-column: 100
44
 
# End:
45
 
# vim: expandtab shiftwidth=4 ft=pir: